Keep newlines in body of task and don't reflow it

Author: ad-si

tasklite-core/source/Lib.hs

@@ -1307,7 +1307,7 @@ formatTaskForInfo conf now (taskV, tags, notes) =
         )
   in
     hardline
-      <> annotate bold (reflow $ FullTask.body taskV)
+      <> annotate bold (pretty taskV.body)
       <> hardline
       <> hardline
       <> ( if P.null tags

tasklite-core/test/LibSpec.hs

@@ -24,7 +24,15 @@ import Test.Hspec (
 import Data.Hourglass (DateTime)
 import Data.Text qualified as T
 import ImportExport (PreEdit (ApplyPreEdit), editTaskByTask)
-import Lib (addTag, countTasks, deleteNote, insertRecord, insertTags, newTasks)
+import Lib (
+  addTag,
+  countTasks,
+  deleteNote,
+  infoTask,
+  insertRecord,
+  insertTags,
+  newTasks,
+ )
 import Task (Task (body, closed_utc, state, ulid), TaskState (Done), zeroTask)
 import TaskToNote (TaskToNote (TaskToNote))
 import TaskToNote qualified
@@ -39,6 +47,17 @@ task1 =
     }
 
 
+taskMultiLine :: Task
+taskMultiLine =
+  zeroTask
+    { ulid = "01hx48cnjhp18mts3c44zk3gen"
+    , body =
+        "New task\n\
+        \with several lines\n\
+        \and line breaks"
+    }
+
+
 spec :: DateTime -> Spec
 spec now = do
   describe "Lib" $ do
@@ -112,6 +131,16 @@ spec now = do
         let errMsg = "Tag \"" <> T.unpack existTag <> "\" is already assigned"
         show cliOutput `shouldContain` errMsg
 
+    it "keeps line breaks of multi-line tasks in info view" $ do
+      withMemoryDb defaultConfig $ \memConn -> do
+        insertRecord "tasks" memConn taskMultiLine
+
+        cliOutput <- infoTask defaultConfig memConn taskMultiLine.ulid
+        show cliOutput
+          `shouldContain` "New task\n\
+                          \with several lines\n\
+                          \and line breaks"
+
     it "lets you delete a note" $ do
       withMemoryDb defaultConfig $ \memConn -> do
         insertRecord "tasks" memConn task1