Mercurial > hg > Members > toma > Jungle-haskell
changeset 14:9df5178e867c
merge
author | Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Wed, 22 Jan 2014 14:23:29 +0900 |
parents | 74a4c7cdc50b (diff) d6e95f88cda9 (current diff) |
children | 3337ccc824a4 |
files | |
diffstat | 1 files changed, 2 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/test/test.hs Wed Jan 22 12:46:34 2014 +0900 +++ b/test/test.hs Wed Jan 22 14:23:29 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