Mercurial > hg > Members > toma > Jungle-haskell

comparison test/ParRead.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 a30ec665df9d
comparison
equal deleted inserted replaced
8:f03876c8236a 9:947c5cfa4149
14 14
15 main = do 15 main = do
16 let 16 let
17 jungle = createJungle 17 jungle = createJungle
18 new_jungle <- createTree jungle "test_tree" 18 new_jungle <- createTree jungle "test_tree"
19 let 19 node <- getRootNode new_jungle "test_tree"
20 tree = fromJust $ getTreeByName new_jungle "test_tree"
21 node <- getRootNode tree
22 let 20 let
23 x = testTree node 7 21 x = testTree node 7
24 putStrLn $ show $ size x 22 putStrLn $ show $ size x
25 updateRootNode tree x 23 updateRootNode new_jungle "test_tree" x
26 node2 <- getRootNode tree 24 node2 <- getRootNode new_jungle "test_tree"
27 t0 <- getCurrentTime 25 t0 <- getCurrentTime
28 printTimeSince t0 26 printTimeSince t0
29 r <- evaluate (runEval $ test node2) 27 r <- evaluate (runEval $ test node2)
30 print r 28 print r
31 printTimeSince t0 29 printTimeSince t0