diff options
| author |  Fabian Kirchner <fabian.kirchner@hereon.de> | 2023-11-29 14:14:33 +0100 |
|---|---|---|
| committer | Fabian Kirchner <fabian.kirchner@hereon.de> | 2023-11-29 14:14:33 +0100 |
| commit | 91e188fbb70c20b939c221a95123934358d1c6c5 (patch) | |
| tree | 294e8d99b307e03a06a60f0b1520008d077a25f0 /app/Issue.hs | |
| parent | e29e8381f302bacbfde5042f166cfedf7ada8e94 (diff) | |
feat: collect issues referencing issue
Diffstat (limited to 'app/Issue.hs')
| -rw-r--r-- | app/Issue.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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 |