Mercurial > hg > Members > toma > Jungle-haskell

comparison test/test.hs @ 13:74a4c7cdc50b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix test.hs
author Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp>
date Wed, 22 Jan 2014 14:22:43 +0900
parents 29d0f605efa9
children 824543aea6fc
comparison
equal deleted inserted replaced
11:a30ec665df9d 13:74a4c7cdc50b
2 2
3 import Jungle 3 import Jungle
4 import Data.Maybe 4 import Data.Maybe
5 import qualified Data.ByteString.Lazy.Char8 as B 5 import qualified Data.ByteString.Lazy.Char8 as B
6 6
7 jungle = createJungle
8
9 tree = do 7 tree = do
10 a <- createTree jungle "test" 8 jungle <- createTree createJungle "test"
11 node <- getRootNode a "test" 9 node <- getRootNode jungle "test"
12 return (add node) 10 return (add node)
13 11
14 addc path pos node = addNewChildAt node path pos 12 addc path pos node = addNewChildAt node path pos
15 13
16 addchild = 14 addchild =