Mercurial > hg > Members > toma > Jungle-haskell

diff test/test.hs @ 9:947c5cfa4149

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change function related to Tree, Tree is not visiable from outside.
author Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp>
date Tue, 21 Jan 2014 13:17:02 +0900
parents f03876c8236a
children 29d0f605efa9
line wrap: on
line diff
--- a/test/test.hs	Tue Jan 14 18:09:51 2014 +0900
+++ b/test/test.hs	Tue Jan 21 13:17:02 2014 +0900
@@ -8,9 +8,7 @@
 
 tree = do
     a <- createTree jungle "test"
-    let
-      t = fromJust $ getTreeByName a "test"
-    node <- getRootNode t
+    node <- getRootNode a "test"
     return (add node)
 
 addc path pos node = addNewChildAt node path pos