Wrap node text in client

This commit is contained in:
Joscha 2020-02-11 11:44:08 +00:00
parent 4c24430c07
commit 1dfce4a93d

View file

@ -49,7 +49,7 @@ narrowDrawState nodeId ds = ds
} }
nodeToWidget :: Node -> Widget ResourceName nodeToWidget :: Node -> Widget ResourceName
nodeToWidget node = txt $ nodeText node nodeToWidget node = txtWrap $ nodeText node
subnodeToTree :: DrawState -> NodeId -> Node -> WidgetTree ResourceName subnodeToTree :: DrawState -> NodeId -> Node -> WidgetTree ResourceName
subnodeToTree ds nodeId node = subnodeToTree ds nodeId node =