diff options
| -rw-r--r-- | Makefile | 6 | ||||
| -rw-r--r-- | app/Issue/Text.hs | 4 |
2 files changed, 5 insertions, 5 deletions
@@ -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 = |