Simple OpenSSL stuff in SML/NJ

[hcoop/domtool2.git] / src / main.sig

diff --git a/src/main.sig b/src/main.sig
index 7197f36..e1d5015 100644 (file)
--- a/src/main.sig
+++ b/src/main.sig
@@ -21,7 +21,7 @@
 signature MAIN = sig
 
     val tInit : unit -> Ast.typ
 signature MAIN = sig
 
     val tInit : unit -> Ast.typ

-    val registerDefault : string * Ast.typ * Ast.exp -> unit
+    val registerDefault : string * Ast.typ * (unit -> Ast.exp) -> unit

 
     val check : string -> Env.env * Ast.exp option
     val check' : Env.env -> string -> Env.env
 
     val check : string -> Env.env * Ast.exp option
     val check' : Env.env -> string -> Env.env


@@ -31,4 +31,6 @@ signature MAIN = sig
     val reduce : string -> Ast.exp option
     val eval : string -> unit
 
     val reduce : string -> Ast.exp option
     val eval : string -> unit
 

+    val request : string -> unit
+

 end
 end