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

[client] Fix rendering of nodes containing empty strings

Browse source
This commit is contained in:
Joscha 2020-02-28 19:35:42 +00:00
parent 041f117df8
commit d58f1e4fef
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Forest/Client/UiState.hs
View file

@ -268,7 +268,11 @@ renderNode focused node =
decorateFlags (nodeFlags node) $ decorateFlags (nodeFlags node) $
decorateFocus focused $ decorateFocus focused $
decorateExpand (not $ OMap.null $ nodeChildren node) $ decorateExpand (not $ OMap.null $ nodeChildren node) $
padRight Max $ txtWrap $ nodeText node padRight Max $ txtWrap text
where
text
| T.null $ nodeText node = " "
| otherwise = nodeText node
nodeToTree :: (Ord n, Show n) => UiState n -> Path -> Node -> Maybe [WidgetTree n] -> WidgetTree n nodeToTree :: (Ord n, Show n) => UiState n -> Path -> Node -> Maybe [WidgetTree n] -> WidgetTree n
nodeToTree s path node maybeChildren = case uiEditor s of nodeToTree s path node maybeChildren = case uiEditor s of