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

Add very basic logging to server

Browse source
This commit is contained in:
Joscha 2020-02-10 23:48:44 +00:00
parent fb6cfdefd7
commit 5902421872
2 changed files with 16 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Forest/Node.hs
View file

@ -8,7 +8,6 @@ module Forest.Node
NodeId
, Node(..)
, emptyNode
, initialNode
, hasChildren
, mapChildren
, applyId
@ -60,9 +59,6 @@ instance FromJSON Node where
emptyNode :: T.Text -> Bool -> Bool -> Bool -> Bool -> Node
emptyNode text edit delete reply act = Node text edit delete reply act Map.empty
initialNode :: Node
initialNode = emptyNode "Loading..." False False False False
hasChildren :: Node -> Bool
hasChildren = not . Map.null . nodeChildren