diff options
Diffstat (limited to 'app/Issue.hs')
| -rw-r--r-- | app/Issue.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/app/Issue.hs b/app/Issue.hs index 02de257..66047b6 100644 --- a/app/Issue.hs +++ b/app/Issue.hs @@ -9,6 +9,8 @@ import Data.List (find) import Data.Maybe (fromMaybe) import Data.Text (Text) import Data.Text qualified as T +import Issue.Tag (Tag) +import Issue.Tag qualified as I import TreeGrepper.FileType qualified as G import TreeGrepper.Match (Match (..)) import TreeGrepper.Match qualified as G @@ -19,7 +21,8 @@ data Issue = Issue { title :: Text, description :: Text, start :: G.Position, - end :: G.Position + end :: G.Position, + tags :: [Tag] } fromMatch :: G.Result -> G.Match -> Maybe Issue @@ -31,7 +34,8 @@ fromMatch result match = { title = stripMarker (T.strip (T.unlines title)), description = T.strip (T.unlines description), start = match.start, - end = match.end + end = match.end, + tags = I.extract text } else Nothing where |