Changeset 10301 for src/Pugs/CodeGen

Timestamp:

05/11/06 23:39:30 (3 years ago)

Author:

gaal

svk:copy_cache_prev:

13387

Message:

* use CompUnit? type for compilation serialization. For now

this doesn't buy us much except future-compatibility (or,
well, resilience); the new structure has a version field.
Please 'rm blib6/lib/Prelude.pm.yml' once after updating.

Files:

• src/Pugs/CodeGen/YAML.hs (modified) (2 diffs)

src/Pugs/CodeGen/YAML.hs

@@ -17 +17 @@
     -- munge the glob to filter out prim stuff in it
     main    <- asks envBody
-    yaml    <- liftIO $ toYamlNode (pad', main)
+    yaml    <- liftIO $ toYamlNode $ mkCompUnit "<unused>" pad' main
     return (VStr $ show yaml)
 
@@ -27 +27 @@
     -- munge the glob to filter out prim stuff in it
     main    <- asks envBody
-    yaml    <- liftIO $ showYaml (pad', main)
+    yaml    <- liftIO $ showYaml $ mkCompUnit "<unused>" pad' main
     return (VStr yaml)