add `rawText` to `Issue`

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]