Remove example tree

This commit is contained in:
Joscha 2020-02-10 01:39:58 +00:00
parent efd33ff05e
commit c3dafbaf63
2 changed files with 1 additions and 10 deletions

View file

@ -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