Mercurial > hg > Members > toma > Jungle-haskell

changeset 11:a30ec665df9d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix
author Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp>
date Tue, 21 Jan 2014 16:36:33 +0900
parents 29d0f605efa9
children d6e95f88cda9 74a4c7cdc50b
files test/ParRead.hs
diffstat 1 files changed, 2 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/test/ParRead.hs	Tue Jan 21 15:51:34 2014 +0900
+++ b/test/ParRead.hs	Tue Jan 21 16:36:33 2014 +0900
@@ -13,9 +13,7 @@
 
 
 main = do
-  let
-    jungle = createJungle
-  new_jungle <- createTree jungle "test_tree"
+  new_jungle <- createTree createJungle "test_tree"
   node <- getRootNode new_jungle "test_tree"
   let
     x = testTree node 7
@@ -31,8 +29,7 @@
 
 test node = do
     x <- rpar (func node)
-    y <- rseq (func2 node)
-    rseq x
+    y <- rpar (func2 node)
     return (x,y)
 
 func :: Node -> Int