editing issues preserves comment style

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