aboutsummaryrefslogtreecommitdiffstats
path: root/app/Issue.hs
diff options
context:
space:
mode:
Diffstat (limited to 'app/Issue.hs')
-rw-r--r--app/Issue.hs9
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]