Original file line number	Diff line number	Diff line change
`@@ -126,7 +126,7 @@ import Text.PortableLines.ByteString.Lazy (lines8)`
`126`	`126`	`import Time.System (dateCurrent, timeCurrent)`
`127`	`127`	`import Utils (`
`128`	`128`	`IdText,`
`129`		`-countChar,`
	`129`	`+countCharTL,`
`130`	`130`	`emptyUlid,`
`131`	`131`	`setDateTime,`
`132`	`132`	`ulidTextToDateTime,`
`@@ -215,7 +215,7 @@ parseMarkdownWithFrontMatter content = do`
`215`	`215`	`frontMatterYaml = TL.intercalate "\n" frontMatterLines`
`216`	`216`	`bodyTextLazy = actualBody & TL.intercalate "\n" & TL.strip`
`217`	`217`	`-- Only keep trailing newlines for multiline bodies`
`218`		`- noTrailingNewline = countChar '\n' bodyTextLazy == 0`
	`218`	`+ noTrailingNewline = countCharTL '\n' bodyTextLazy == 0`
`219`	`219`	`bodyText = bodyTextLazy & TL.toStrict`
`220`	`220`	`frontMatterWithBody =`
`221`	`221`	`frontMatterYaml`

Original file line number	Diff line number	Diff line change
`@@ -248,6 +248,7 @@ import Utils (`
`248`	`248`	`IdText,`
`249`	`249`	`ListModifiedFlag (..),`
`250`	`250`	`applyColorMode,`
	`251`	`+countChar,`
`251`	`252`	`dateTimeToUtcTime,`
`252`	`253`	`formatElapsedP,`
`253`	`254`	`numDigits,`
`@@ -2406,6 +2407,11 @@ formatTaskLine conf now taskWidth task =`
`2406`	`2407`	`-- redOut onTime doc = if onTime`
`2407`	`2408`	`-- then annotate (bodyStyle conf) doc`
`2408`	`2409`	`-- else annotate (color Red) doc`
	`2410`	`+ taskBody =`
	`2411`	`+ reflow $`
	`2412`	`+if countChar '\n' task.body > 0`
	`2413`	`+then (task.body & T.takeWhile (/= '\n')) <> " ▼"`
	`2414`	`+else task.body`
`2409`	`2415`	`taskLine =`
`2410`	`2416`	`createdUtc <&> \taskDate ->`
`2411`	`2417`	`hang hangWidth $`
`@@ -2432,8 +2438,8 @@ formatTaskLine conf now taskWidth task =`
`2432`	`2438`	`else ""`
`2433`	`2439`	`)`
`2434`	`2440`	`<> ( if dueIn mempty && isOpen`
`2435`		`-then annotate (color Red) (reflow task.body)`
`2436`		`-else grayOutIfDone (reflow task.body)`
	`2441`	`+then annotate (color Red) taskBody`
	`2442`	`+else grayOutIfDone taskBody`
`2437`	`2443`	`)`
`2438`	`2444`	`, annotate (dueStyle conf) (pretty dueUtcMaybe)`
`2439`	`2445`	`, annotate (closedStyle conf) (pretty closedUtcMaybe)`

Original file line number	Diff line number	Diff line change
`@@ -62,16 +62,8 @@ import Data.Hourglass (`
`62`	`62`	`timeParse,`
`63`	`63`	`timePrint,`
`64`	`64`	`)`
`65`		`-import Data.Text as T (`
`66`		`-Text,`
`67`		`-chunksOf,`
`68`		`-drop,`
`69`		`-intercalate,`
`70`		`-pack,`
`71`		`-take,`
`72`		`-toLower,`
`73`		`-unpack,`
`74`		`- )`
	`65`	`+import Data.Text (Text, unpack)`
	`66`	`+import Data.Text qualified as T`
`75`	`67`	`import Data.Text.Lazy qualified as TL`
`76`	`68`	`import Data.Time (UTCTime, ZonedTime, addUTCTime, zonedTimeToUTC)`
`77`	`69`	`import Data.Time.Clock.POSIX (posixSecondsToUTCTime, utcTimeToPOSIXSeconds)`
`@@ -344,6 +336,11 @@ applyColorMode conf = do`
`344`	`336`	`else conf`
`345`	`337`
`346`	`338`
`347`		`-countChar :: Char -> TL.Text -> P.Int64`
`348`		`-countChar char =`
	`339`	`+countCharTL :: Char -> TL.Text -> P.Int64`
	`340`	`+countCharTL char =`
`349`	`341`	`TL.filter (== char) >>> TL.length`
	`342`	`+`
	`343`	`+`
	`344`	`+countChar :: Char -> Text -> P.Int`
	`345`	`+countChar char =`
	`346`	`+T.filter (== char) >>> T.length`

Original file line number	Diff line number	Diff line change
`@@ -612,6 +612,14 @@ spec = do`
`612`	`612`	metadata `shouldBe` SQLNull
`613`	`613`	`_ -> P.die "Found more than one task"`
`614`	`614`
	`615`	`+ it "only shows first line of multi-line tasks in task listing" $ do`
	`616`	`+ withMemoryDb defaultConfig $ \memConn -> do`
	`617`	`+ insertRecord "tasks" memConn taskMultiLine`
	`618`	`+`
	`619`	`+ tasks <- headTasks conf now memConn Nothing`
	`620`	+show tasks `shouldContain` "New task ▼"
	`621`	+show tasks `shouldNotContain` "with several lines"
	`622`	`+`
`615`	`623`	`it "keeps line breaks of multi-line tasks in info view" $ do`
`616`	`624`	`withMemoryDb defaultConfig $ \memConn -> do`
`617`	`625`	`insertRecord "tasks" memConn taskMultiLine`