aboutsummaryrefslogtreecommitdiffstats
path: root/app/Issue/Tag.hs
diff options
context:
space:
mode:
authorLibravatar Fabian Kirchner <kirchner@posteo.de>2023-10-14 12:11:38 +0200
committerLibravatar Fabian Kirchner <kirchner@posteo.de>2023-10-14 12:11:38 +0200
commitef5f4581f31ec35a4b2afefbafac56f175566879 (patch)
treefacf9420cd3eb7baaa309afa732f8823522dfca0 /app/Issue/Tag.hs
parent9806a5284d0f189da90ea0020441b8d6f96daee9 (diff)
add basic caching of Issue's
Diffstat (limited to 'app/Issue/Tag.hs')
-rw-r--r--app/Issue/Tag.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/app/Issue/Tag.hs b/app/Issue/Tag.hs
index af12331..7147cb1 100644
--- a/app/Issue/Tag.hs
+++ b/app/Issue/Tag.hs
@@ -1,14 +1,17 @@
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ViewPatterns #-}
+{-# LANGUAGE DeriveAnyClass #-}
module Issue.Tag (Tag (..), extractTags, internalTags) where
import Data.Maybe (catMaybes)
import Data.Text (Text)
import Data.Text qualified as T
+import Data.Binary (Binary)
+import GHC.Generics (Generic)
-data Tag = Tag Text Text deriving (Show)
+data Tag = Tag Text Text deriving (Show, Generic, Binary)
extractTags :: Text -> [Tag]
extractTags =