# HG changeset patch
# User Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp>
# Date 1390289793 -32400
# Node ID a30ec665df9def460ccb7f9b4320c9185f154867
# Parent  29d0f605efa95a4ca703986bf880eb89ef8df973
fix

diff -r 29d0f605efa9 -r a30ec665df9d test/ParRead.hs
--- 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