diff --git a/client/Main.hs b/client/Main.hs index 298f949..4ba757d 100644 --- a/client/Main.hs +++ b/client/Main.hs @@ -158,6 +158,4 @@ clientApp = App } main :: IO () -main = void $ defaultMain clientApp testState - where - testState = ClientState {csTree = exampleTree, csEditor = Nothing} +main = void $ defaultMain clientApp $ newClientState exampleNode diff --git a/src/Forest/Client/Tree.hs b/src/Forest/Client/Tree.hs index c0ec24d..7c4844c 100644 --- a/src/Forest/Client/Tree.hs +++ b/src/Forest/Client/Tree.hs @@ -1,5 +1,3 @@ -{-# LANGUAGE OverloadedStrings #-} - module Forest.Client.Tree ( Tree , newTree @@ -14,8 +12,6 @@ module Forest.Client.Tree , foldCurrent , unfoldCurrent , toggleFold - -- * Example values - , exampleTree ) where import Brick @@ -139,6 +135,3 @@ applyFolds unfolded node where foldedChildren = Map.fromList $ mapChildren applyFoldsToChild node applyFoldsToChild nid n = (nid, applyFolds (narrowSet nid unfolded) n) - -exampleTree :: Tree -exampleTree = newTree exampleNode (Path ["hammer"]) Set.empty