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

[client] Fix cursor becoming invisible

Browse source
This commit is contained in:
Joscha 2020-02-19 23:36:14 +00:00
parent e8b6efcb76
commit 661c233ce1
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/Forest/Client/NodeUtil.hs
View file

@ -33,7 +33,13 @@ foldVisibleNodes = foldVisibleNodes' mempty
-- | Keep only those nodes that are visible according to the 'Unfolded' set. -- | Keep only those nodes that are visible according to the 'Unfolded' set.
applyFolds :: Unfolded -> Node -> Node applyFolds :: Unfolded -> Node -> Node
applyFolds = foldVisibleNodes (\_ node _ -> node) applyFolds unfolded node
| mempty `Set.member` unfolded = node {nodeChildren = children}
| otherwise = node {nodeChildren = OMap.empty}
where
children =
OMap.mapWithKey (\nid -> applyFolds $ narrowSet nid unfolded) $
nodeChildren node
-- | Return the 'Path's to a node and its subnodes in the order they would be -- | Return the 'Path's to a node and its subnodes in the order they would be
-- displayed in. -- displayed in.