generate internal @id tag from title

1 files changed, 8 insertions, 5 deletions

diff --git a/app/Issue.hs b/app/Issue.hs
index 249ce92..07bddee 100644
--- a/app/Issue.hs
+++ b/app/Issue.hs
@@ -20,24 +20,27 @@ data Issue = Issue
     description :: Maybe Text,
     start :: G.Position,
     end :: G.Position,
-    tags :: [Tag]
+    tags :: [Tag],
+    internalTags :: [Tag]
   }
 
 fromMatch :: G.Result -> G.Match -> Maybe Issue
 fromMatch result match =
-  if T.isPrefixOf marker title
+  if T.isPrefixOf marker title'
     then
       Just
         Issue
-          { title = stripMarker title,
+          { title = title,
             description = stripTags <$> description,
             start = match.start,
             end = match.end,
-            tags = maybe [] I.extract description
+            tags = maybe [] I.extractTags description,
+            internalTags = I.internalTags title
           }
     else Nothing
   where
-    (title, description) = I.extractText result.file_type match.text
+    (title', description) = I.extractText result.file_type match.text
+    title = stripMarker title'
 
 marker :: Text
 marker = "TODO"