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

Timestamp:

02/20/06 06:22:07 (3 years ago)

Author:

audreyt

Message:

* Prim.Yaml: &code.yaml and other non-array, non-hash

elements is now serialized by simply calling to DrIFT.

Files:

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

src/Pugs/Prim/Yaml.hs

@@ -14 +14 @@
 import qualified Data.IntMap as IntMap
 import qualified Data.FastPackedString as Str
-import Foreign.StablePtr
-import Foreign.Ptr
-import Data.Generics
+import DrIFT.YAML
 
 type Str = Str.FastString
@@ -81 +79 @@
 strNode = mkNode . YamlStr . Str.pack
 
+{-
 addressOf :: a -> IO Int
 addressOf x = do
     ptr <- newStablePtr x
     return (castStablePtrToPtr ptr `minusPtr` (nullPtr :: Ptr ()))
+-}
 
 toYaml :: (?seen :: IntSet.IntSet) => Val -> Eval YamlNode
@@ -97 +97 @@
             v'      <- readRef r
             nodes   <- toYaml v'
-            ifValTypeIsa v "Array" (return nodes) . return $ case v' of
-                VObject _   -> nodes
-                _           -> mkNode $ YamlMap [(strNode "<ref>", nodes)]
+            ifValTypeIsa v "Array" (return nodes) $ case v' of
+                VObject _   -> return nodes
+                _           -> liftIO $ toYamlNode r
         return node{ anchor = MkYamlAnchor ptr }
 toYaml (VList nodes) = do