diff options
Diffstat (limited to 'app')
-rw-r--r-- | app/Issue.hs | 9 |
1 files changed, 6 insertions, 3 deletions
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] |