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

[server] Rename "graft" to "draw"

Browse source
This commit is contained in:
Joscha 2020-03-15 22:29:45 +00:00
parent 83406dff10
commit aa074d181b
2 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
forest-server/src/Forest/Server/TreeApp.hs
View file

@ -39,7 +39,7 @@ data Event e
| Custom e
data TreeApp s e = TreeApp
{ appGraft :: s -> Node
{ appDraw :: s -> Node
, appHandleEvent :: s -> Event e -> IO (Next s)
, appConstructor :: forall a. (s -> Maybe (TChan e) -> IO a) -> IO a
}
@ -93,7 +93,7 @@ runUntilHalt conn app rs = do
case next of
Halt -> pure ()
Continue state' -> do
let node' = appGraft app state'
let node' = appDraw app state'
sendNodeUpdate conn (rsNode rs) node'
runUntilHalt conn app rs{rsState = state', rsNode = node'}
@ -106,7 +106,7 @@ runTreeApp pingDelay app pendingConn = do
firstPacket <- receivePacket conn
case firstPacket of
ClientHello _ -> do
let initialNode = appGraft app initialState
let initialNode = appDraw app initialState
rs = RunState chan customChan initialState initialNode
sendPacket conn $ ServerHello [] initialNode
withThread (receiveThread conn chan) $ runUntilHalt conn app rs