Changeset 4335 for src/Pugs/Prim/Code.hs

Timestamp:

06/03/05 03:11:32 (4 years ago)

Author:

theorbtwo

svk:copy_cache_prev:

5929

Message:

Prettify .pos output. (Should be converted to an obj with stringify
overloaded at some point.)

Files:

• src/Pugs/Prim/Code.hs (modified) (2 diffs)

src/Pugs/Prim/Code.hs

@@ -3 +3 @@
 import Pugs.AST
 import Pugs.Internals
+import Pugs.Pretty
 
 {- On Code -}
@@ -32 +33 @@
     case env of
         Nothing  -> return VUndef
-        Just env -> return $ castV $ show $ envPos env
+        Just env -> return $ castV $ pretty $ envPos env
 
 {- On Code::Exp -}