aboutsummaryrefslogtreecommitdiffstats
path: root/app/History
diff options
context:
space:
mode:
Diffstat (limited to 'app/History')
-rw-r--r--app/History/PartialCommitInfo.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/app/History/PartialCommitInfo.hs b/app/History/PartialCommitInfo.hs
index b37ada5..7497f38 100644
--- a/app/History/PartialCommitInfo.hs
+++ b/app/History/PartialCommitInfo.hs
@@ -99,13 +99,14 @@ fromComment cwd comment = do
end = comment.end,
tags = maybe [] I.extractTags description,
markers = markers,
- rawText = rawText
+ rawText = rawText,
+ commentStyle = commentStyle
}
else Nothing
)
where
- rawText = comment.text
- (title', description) = I.extractText comment.file_type rawText
+ (commentStyle, rawText) = G.uncomment comment.file_type comment.text
+ (title', description) = I.extractText rawText
(markers, title) = I.stripIssueMarkers title'
dieOfInvalidTreeGrepperResult :: E.InvalidTreeGrepperResult -> IO a