Garmelon/forest
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Display example node

Browse source
This commit is contained in:
Joscha 2020-02-08 23:33:25 +00:00
parent ff2dc3e783
commit 8fb3ab19c8
2 changed files with 14 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
client/Main.hs
View file

@ -42,9 +42,9 @@ data ClientState = ClientState
, csEditor :: Maybe NodeEditor
}
newClientState :: ClientState
newClientState = ClientState
{ csTree = newTree $ emptyNode "Connecting..." False False False False
newClientState :: Node -> ClientState
newClientState node = ClientState
{ csTree = newTree node
, csEditor = Nothing
}
@ -65,4 +65,4 @@ clientApp = App
}
main :: IO ()
main = void $ defaultMain clientApp newClientState
main = void $ defaultMain clientApp $ newClientState exampleNode