Mercurial > hg > Members > toma > Jungle-haskell

diff test/test.hs @ 10:29d0f605efa9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add updateRootNodeWith
author Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp>
date Tue, 21 Jan 2014 15:51:34 +0900
parents 947c5cfa4149
children 74a4c7cdc50b
line wrap: on
line diff
--- a/test/test.hs	Tue Jan 21 13:17:02 2014 +0900
+++ b/test/test.hs	Tue Jan 21 15:51:34 2014 +0900
@@ -24,8 +24,13 @@
     (adda [] "root" "node") . (adda [1] "tes" "abc") .
     (adda [3,2] "test" "3-2") . (adda [2,2] "test" "2-2")
 
+add :: Node -> Node
 add = addattr . addchild
 
+putNode = putStrLn . drawNode
+putAttr = putStrLn . printAttributes 
+
+
 {-
 ghci> :l test.hs
 ghci> y <- tree