Mercurial > hg > Members > toma > Jungle-haskell
annotate 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 |
rev | line source |
---|---|
3 | 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 |