# HG changeset patch
# User Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp>
# Date 1390368163 -32400
# Node ID 74a4c7cdc50bb39c7528bf2ad166ff1d57ae1545
# Parent  a30ec665df9def460ccb7f9b4320c9185f154867
fix test.hs

diff -r a30ec665df9d -r 74a4c7cdc50b test/test.hs
--- a/test/test.hs	Tue Jan 21 16:36:33 2014 +0900
+++ b/test/test.hs	Wed Jan 22 14:22:43 2014 +0900
@@ -4,11 +4,9 @@
 import Data.Maybe
 import qualified Data.ByteString.Lazy.Char8 as B
 
-jungle = createJungle
-
 tree = do
-    a <- createTree jungle "test"
-    node <- getRootNode a "test"
+    jungle <- createTree createJungle "test"
+    node <- getRootNode jungle "test"
     return (add node)
 
 addc path pos node = addNewChildAt node path pos