From 91e188fbb70c20b939c221a95123934358d1c6c5 Mon Sep 17 00:00:00 2001
From: Fabian Kirchner <fabian.kirchner@hereon.de>
Date: Wed, 29 Nov 2023 14:14:33 +0100
Subject: feat: collect issues referencing issue

---
 app/Issue.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'app/Issue.hs')

diff --git a/app/Issue.hs b/app/Issue.hs
index f8bf0ec..f0940f2 100644
--- a/app/Issue.hs
+++ b/app/Issue.hs
@@ -56,6 +56,9 @@ internalTags (Issue {..}) =
 instance HasField "internalTags" Issue [Tag] where
   getField issue = internalTags issue
 
+instance HasField "id" Issue (Maybe String) where
+  getField issue = id issue
+
 toSpinalCase :: T.Text -> T.Text
 toSpinalCase = T.replace " " "-" . T.filter keep . T.toLower
   where
-- 
cgit v1.2.3