From 1dfce4a93d85de1cc7530607a9243457b46770fe Mon Sep 17 00:00:00 2001
From: Joscha <joscha@plugh.de>
Date: Tue, 11 Feb 2020 11:44:08 +0000
Subject: [PATCH] Wrap node text in client

---
 src/Forest/Client/Node.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Forest/Client/Node.hs b/src/Forest/Client/Node.hs
index 6eaa149..d65bfd6 100644
--- a/src/Forest/Client/Node.hs
+++ b/src/Forest/Client/Node.hs
@@ -49,7 +49,7 @@ narrowDrawState nodeId ds = ds
   }
 
 nodeToWidget :: Node -> Widget ResourceName
-nodeToWidget  node = txt $ nodeText node
+nodeToWidget  node = txtWrap $ nodeText node
 
 subnodeToTree :: DrawState -> NodeId -> Node -> WidgetTree ResourceName
 subnodeToTree ds nodeId node =