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

Timestamp:

02/16/06 19:06:21 (3 years ago)

Author:

audreyt

Message:

* Strictify the whole yaml dumping process.

Files:

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

src/Pugs/Prim/Yaml.hs

@@ -92 +92 @@
 toYaml v@(VRef r)   = do
     ptr <- liftIO $ addressOf r
-    if IntSet.member ptr ?seen then return nilNode{ anchor = Just (MkYamlReference ptr) } else do
+    if IntSet.member ptr ?seen then return nilNode{ anchor = MkYamlReference ptr } else do
         let ?seen = IntSet.insert ptr ?seen
         node <- ifValTypeIsa v "Hash" (hashToYaml r) $ do
@@ -100 +100 @@
                 VObject _   -> nodes
                 _           -> mkNode $ YamlMap [(strNode "<ref>", nodes)]
-        return node{ anchor = Just (MkYamlAnchor ptr) }
+        return node{ anchor = MkYamlAnchor ptr }
 toYaml (VList nodes) = do
     n <- mapM toYaml nodes