X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/1a4e5a6c9a8fbbdc980cf0661c444ddc2910544a..492c1cff68a2da969a559627725369c211470c92:/src/tycheck.sig

diff --git a/src/tycheck.sig b/src/tycheck.sig
index a86ae37..50a816f 100644
--- a/src/tycheck.sig
+++ b/src/tycheck.sig
@@ -20,17 +20,17 @@
 
 signature TYCHECK = sig
 
-    type env
-    val empty : env
+    val checkTyp : Env.env -> Ast.typ -> Ast.typ
 
-    val checkTyp : env -> Ast.typ -> Ast.typ
-
-    val checkExp : env -> Ast.exp -> Ast.typ
-    val checkUnit : env -> Ast.exp -> Ast.typ
+    val checkExp : Env.env -> Ast.exp -> Ast.typ
+    val checkUnit : Env.env -> Ast.exp -> Ast.typ
     (* [checkUnit] checks that all unification variables have been resolved. *)
 
-    val checkDecl : env -> Ast.decl -> env
+    val checkDecl : Env.env -> Ast.decl -> Env.env
+
+    val checkFile : Env.env -> Ast.typ -> Ast.file -> Env.env
 
-    val checkFile : env -> Ast.typ -> Ast.file -> env
+    val resetUnif : unit -> unit
+    val newUnif : unit -> Ast.typ'
 
 end