From b87674a9ad1aece973da49197182a08ac65cd2df Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Thu, 5 Oct 2023 10:57:59 +0200
Subject: fix trailing newline in text extract, fix tests

---
 Makefile          | 6 +++---
 app/Issue/Text.hs | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/Makefile b/Makefile
index b2783f3..43f25dc 100644
--- a/Makefile
+++ b/Makefile
@@ -1,13 +1,13 @@
 test: test-sh test-elm test-nix
 
 test-sh: tests/sh.sh
-	cabal run anissue -- show tests/sh.sh | \
+	cabal run anissue -- list tests/sh.sh | \
 		cmp tests/expect
 
 test-elm: tests/elm.elm
-	cabal run anissue -- show tests/elm.elm | \
+	cabal run anissue -- list tests/elm.elm | \
 		cmp tests/expect
 
 test-nix: tests/nix.nix
-	cabal run anissue -- show tests/nix.nix | \
+	cabal run anissue -- list tests/nix.nix | \
 		cmp tests/expect
diff --git a/app/Issue/Text.hs b/app/Issue/Text.hs
index 2d3aac4..2637598 100644
--- a/app/Issue/Text.hs
+++ b/app/Issue/Text.hs
@@ -15,7 +15,7 @@ extractText :: FileType -> Text -> (Text, Maybe Text)
 extractText fileType rawText = (title, description)
   where
     text = stripComments fileType $ stripLines rawText
-    stripLines = T.unlines . map T.strip . T.lines
+    stripLines = T.intercalate "\n" . map T.strip . T.lines
     (title, description') = second T.stripStart $ T.breakOn "\n\n" text
     description
       | T.null description' = Nothing
@@ -41,7 +41,7 @@ stripLineComments lineStart text =
     )
     text
   where
-    onLines f = T.unlines . map f . T.lines
+    onLines f = T.intercalate "\n" . map f . T.lines
 
 stripBlockComment :: Text -> Text -> Text -> Text
 stripBlockComment blockStart blockEnd text =
-- 
cgit v1.2.3