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

Timestamp:

01/14/06 00:34:11 (3 years ago)

Author:

gaal

Message:

* Pugs.Prim.Yaml - very minor golfage

Files:

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

src/Pugs/Prim/Yaml.hs

@@ -50 +50 @@
                 val <- fromYaml valNode
                 return (key, val)
-            let spec    = Map.fromList (vals :: [(String, Val)])
+            --let spec    = Map.fromList (vals :: [(String, Val)])
+            --spec    <- liftSTM . newTVar . Map.map lazyScalar $ Map.fromList (vals :: [(String, Val)])
+            spec'   <- liftSTM . newTVar $ Map.fromList (vals :: [(String, Val)])
+            spec    <- liftSTM . readTVar $ spec'
             rule    <- fromVal =<< Map.lookup "rule" spec
             global  <- fromVal =<< Map.lookup "global" spec
@@ -108 +111 @@
     h <- hash_fetch hv
     let assocs = Map.toList h
-    yamlmap <- flip mapM assocs $ \(ka, va) -> do
+    yamlmap <- forM assocs $ \(ka, va) -> do
         ka' <- toYaml $ VStr ka
         va' <- toYaml va