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

Timestamp:

08/28/06 16:05:16 (2 years ago)

Author:

audreyt

Message:

* Put IArray into the IO monad, not the STM monad;

a STM-friendly array will need an explicitly-defined
data structure, most likely.

Files:

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

src/Pugs/Prim/Yaml.hs

@@ -26 +26 @@
 fromYaml MkNode{n_elem=EStr str}   = return $ VStr $ decodeUTF8 $ unpackBuf str
 fromYaml MkNode{n_elem=ESeq nodes} = do
-    vals    <- mapM fromYaml nodes
-    s       <- liftSTM $ newTVar (0 :: Int)
-    av      <- liftIO $ (C.fromList ([0..] `zip` map lazyScalar vals) :: IO IArray')
-    return $ VRef (arrayRef (av,s))
+    av  <- mapM fromYaml nodes
+    val <- newArray av
+    return (VRef $ MkRef val)
 fromYaml MkNode{n_elem=EMap nodes, n_tag=tag} = do
     case tag of