From 1bf4c37ff57989eb8aece0d500e74f2b64ac6089 Mon Sep 17 00:00:00 2001
From: artlef <artlef@localhost>
Date: Sat, 2 Jun 2018 20:42:22 +0200
Subject: [PATCH] Wrap output text

---
 WordDef.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/WordDef.hs b/WordDef.hs
index 6699cc9..5314bfd 100644
--- a/WordDef.hs
+++ b/WordDef.hs
@@ -10,6 +10,9 @@ module WordDef
     renderFullDef
     ) where
 
+import Data.Text
+import Text.Wrap
+
 data WordFullDef = WordFullDef WordDefHeader [WordSentence] deriving Show
 
 data WordSentence = WordDefSentence String
@@ -27,7 +30,11 @@ getTypeString (WordType s) =  s
 
 renderFullDef :: WordFullDef -> String
 renderFullDef (WordFullDef wordDefHeader wordSentenceList) =
-    renderHeader wordDefHeader ++ "\n\n" ++ renderWordSentenceList wordSentenceList
+    unpack $ wrapText wrapSettings 70 fullDef
+  where
+    fullDef = pack (renderHeader wordDefHeader ++ "\n\n"
+        ++ renderWordSentenceList wordSentenceList)
+    wrapSettings = WrapSettings True False
 
 renderHeader :: WordDefHeader -> String
 renderHeader (WordDefHeader n t) = (getNameString n) ++ (getTypeString t)