Mercurial > hg > Members > toma > Jungle-haskell
view Main.hs @ 4:48ed16468aaa
add Treename
author | Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Tue, 09 Apr 2013 17:40:00 +0900 |
parents | 090bdde20e9f |
children |
line wrap: on
line source
module Main where import Jungle import qualified Data.ByteString.Char8 as C x = createTree createJungle "new_tree" tree = getTreeByName x "new_tree" new_tree = addNewChildAt tree [] 0 Empty new_tree2 = putAttribute tree [] "key" (C.pack "value") main = do print $ createJungle print x print $ getTreeByName x "new_tree" print new_tree print new_tree2