Type annotations on environment variable reads

[hcoop/domtool2.git] / src / printFn.sml

diff --git a/src/printFn.sml b/src/printFn.sml
index 871c1df..05172da 100644 (file)
--- a/src/printFn.sml
+++ b/src/printFn.sml
@@ -115,9 +115,13 @@ fun p_exp' pn (e, _) =
 
       | ESkip => keyword "_"
       | ESet (x, e) => parenIf pn [exp x, space 1, punct "=", space 1, p_exp e]
-      | EGet (x1, x2, e) => parenIf pn [dBox [exp x1, space 1, punct "<-",
-                                             space 1, exp x2, punct ";", space 1],
-                                       p_exp e]
+      | EGet (x1, NONE, x2, e) => parenIf pn [dBox [exp x1, space 1, punct "<-",
+                                                   space 1, exp x2, punct ";", space 1],
+                                             p_exp e]
+      | EGet (x1, SOME t, x2, e) => parenIf pn [dBox [exp x1, space 1, punct ":", space 1, p_typ t,
+                                                     space 1, punct "<-",
+                                                     space 1, exp x2, punct ";", space 1],
+                                               p_exp e]
       | ESeq es => parenIf pn (valOf (foldr (fn (e, NONE) => SOME [p_exp e]
                                        | (e, SOME ds) => SOME (dBox [p_exp e, punct ";", newline] :: ds))
                                      NONE es))