From 1731c0484c9bd32cb8f312529e192fb4bdd99dba Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Mon, 27 Nov 2023 13:33:27 +0100 Subject: add `rawText` to `Issue` --- app/Issue.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'app/Issue.hs') diff --git a/app/Issue.hs b/app/Issue.hs index 8d8e250..b8deb6e 100644 --- a/app/Issue.hs +++ b/app/Issue.hs @@ -40,7 +40,8 @@ data Issue = Issue start :: G.Position, end :: G.Position, tags :: [Tag], - markers :: [T.Text] + markers :: [T.Text], + rawText :: T.Text } deriving (Show, Binary, Generic, Eq) @@ -98,12 +99,14 @@ fromComment cwd comment = do start = comment.start, end = comment.end, tags = maybe [] I.extractTags description, - markers = markers + markers = markers, + rawText = rawText } else Nothing ) where - (title', description) = I.extractText comment.file_type comment.text + rawText = comment.text + (title', description) = I.extractText comment.file_type rawText (markers, title) = stripIssueMarkers title' issueMarkers :: [T.Text] -- cgit v1.2.3