diff options
Diffstat (limited to 'app/Issue/Text.hs')
| -rw-r--r-- | app/Issue/Text.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 = |