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

Separate Node-related stuff from Api module

Browse source
This commit is contained in:
Joscha 2020-02-08 23:26:21 +00:00
parent 72e66a55f6
commit ff2dc3e783
8 changed files with 52 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

4
client/Main.hs
View file

@ -14,7 +14,7 @@ import Forest.Api
import Forest.Client.NodeEditor
import Forest.Client.ResourceName
import Forest.Client.Tree
import Forest.Tree
import Forest.Node
import Forest.Util
{- Listening for server events -}
@ -53,7 +53,7 @@ clientDraw cs = [renderTree (csEditor cs) (csTree cs)]
clientHandleEvent :: ClientState -> BrickEvent ResourceName () -> EventM ResourceName (Next ClientState)
clientHandleEvent cs (VtyEvent (Vty.EvKey (Vty.KChar 'q') [])) = halt cs
clientHandleEvent cs _ = continue cs
clientHandleEvent cs _ = continue cs
clientApp :: App ClientState () ResourceName
clientApp = App