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

10
src/Forest/Node.hs
View file

@ -18,6 +18,8 @@ module Forest.Node
, isValidPath , isValidPath
, narrowPath , narrowPath
, narrowSet , narrowSet
-- * Example values
, exampleNode
) where ) where
import Control.Monad import Control.Monad
@ -86,3 +88,11 @@ narrowPath _ _ = Nothing
narrowSet :: NodeId -> Set.Set Path -> Set.Set Path narrowSet :: NodeId -> Set.Set Path -> Set.Set Path
narrowSet x s = Set.fromList [Path ys | Path (y:ys) <- Set.toList s, x == y] narrowSet x s = Set.fromList [Path ys | Path (y:ys) <- Set.toList s, x == y]
{- For testing -}
exampleNode :: Node
exampleNode = Node "Tool box" False False True False $ Map.fromList
[ ("hammer", Node "Hammer" False True False True Map.empty)
, ("nail", Node "Nail" False True False False Map.empty)
]