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

Timestamp:

01/08/06 21:28:10 (3 years ago)

Author:

gaal

Message:

Yaml serialization -
* parsing rules works (but they segfault when applied, probably need

a copy made?)

Files:

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

src/Pugs/Prim/Yaml.hs

@@ -45 +45 @@
                 return (key, val)
             return . VObject =<< createObject (mkType typ) vals
+        Just "pugs/Rule" -> do
+            vals    <- forM nodes $ \(keyNode, valNode) -> do
+                key <- fromVal =<< fromYaml keyNode
+                val <- fromYaml valNode
+                return (key, val)
+            let spec    = Map.fromList (vals :: [(String, Val)])
+            rule    <- fromVal =<< Map.lookup "rule" spec
+            global  <- fromVal =<< Map.lookup "global" spec
+            stringify <- fromVal =<< Map.lookup "stringify" spec
+            adverbs <- Map.lookup "adverbs" spec
+            return $ VRule MkRulePGE{rxRule=rule, rxGlobal=global, rxStringify=stringify, rxAdverbs=adverbs}
         Just x   -> error ("can't deserialize: " ++ x)