Changeset 8604 for src/Pugs/Prim/Yaml.hs

Timestamp:

01/07/06 11:59:25 (3 years ago)

Author:

gaal

Message:

* .yaml emits objects.

TODO:
- make it parse them, too
- serialize rules, native types, etc.

Files:

• src/Pugs/Prim/Yaml.hs (modified) (1 diff)

src/Pugs/Prim/Yaml.hs

@@ -67 +67 @@
     hash    <- fromVal v :: Eval VHash
     attrs   <- toYaml $ VRef (hashRef hash)
-    return $ addTag (Just $ "!pugs:object/" ++ showType (objType obj)) attrs
+    return $ addTag (Just $ "tag:pugs:object:" ++ showType (objType obj)) attrs
     where
     addTag _   (YamlMap (Just x) _) = error ("can't add tag: already tagged with" ++ x)