From 16da8a1ea6187f4bd5ef176f2aed64403b111c8c Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Thu, 5 Oct 2023 10:03:31 +0200 Subject: generate internal @id tag from title --- app/Issue/Text.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'app/Issue/Text.hs') diff --git a/app/Issue/Text.hs b/app/Issue/Text.hs index 190e1c7..2d3aac4 100644 --- a/app/Issue/Text.hs +++ b/app/Issue/Text.hs @@ -16,9 +16,7 @@ extractText fileType rawText = (title, description) where text = stripComments fileType $ stripLines rawText stripLines = T.unlines . map T.strip . T.lines - (title, description') = - second T.stripStart $ - T.breakOn "\n\n" text + (title, description') = second T.stripStart $ T.breakOn "\n\n" text description | T.null description' = Nothing | otherwise = Just description' -- cgit v1.2.3