Changeset 26 for src/Pretty.hs

Timestamp:

02/14/05 06:02:18 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

1041

Message:

* snapshot during monadic refactoring

Files:

• src/Pretty.hs (modified) (1 diff)

src/Pretty.hs

@@ -27 +27 @@
     pretty (Val (VError msg (NonTerm pos))) = "Syntax error at " ++ (show pos) ++ msg
     pretty x = show x
+
+instance Pretty Env where
+    pretty x = "{ " ++ (pretty $ envBody x) ++ " }"
 
 instance Pretty Val where