Mercurial > hg > Members > toma > Jungle-haskell
comparison Main.hs @ 3:090bdde20e9f
add Main.hs
| author | Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp> |
|---|---|
| date | Tue, 26 Mar 2013 18:28:54 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 2:392c3f30c076 | 3:090bdde20e9f |
|---|---|
| 1 module Main where | |
| 2 import Jungle | |
| 3 import qualified Data.ByteString.Char8 as C | |
| 4 | |
| 5 | |
| 6 x = createTree createJungle "new_tree" | |
| 7 tree = getTreeByName x "new_tree" | |
| 8 new_tree = addNewChildAt tree [] 0 Empty | |
| 9 new_tree2 = putAttribute tree [] "key" (C.pack "value") | |
| 10 | |
| 11 | |
| 12 main = do print $ createJungle | |
| 13 print x | |
| 14 print $ getTreeByName x "new_tree" | |
| 15 print new_tree | |
| 16 print new_tree2 |