diff options
Diffstat (limited to 'app/Issue.hs')
| -rw-r--r-- | app/Issue.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/app/Issue.hs b/app/Issue.hs index f0940f2..bcb5333 100644 --- a/app/Issue.hs +++ b/app/Issue.hs @@ -31,7 +31,8 @@ data Issue = Issue markers :: [T.Text], rawText :: T.Text, commentStyle :: G.CommentStyle, - comments :: [T.Text] + comments :: [T.Text], + closed :: Bool } deriving (Show, Binary, Generic, Eq) @@ -48,7 +49,8 @@ internalTags (Issue {..}) = Tag "createdAt" $ Just $ T.pack $ show $ utctDay provenance.first.date, Tag "modifiedAt" $ Just $ T.pack $ show $ utctDay provenance.last.date, Tag "author" $ Just $ provenance.first.author.name, - Tag "editor" $ Just $ provenance.last.author.name + Tag "editor" $ Just $ provenance.last.author.name, + Tag "state" $ Just $ if closed then "closed" else "open" ], map (Tag "type" . Just) markers ] |