diff options
author | Fabian Kirchner <kirchner@posteo.de> | 2023-10-14 12:11:38 +0200 |
---|---|---|
committer | Fabian Kirchner <kirchner@posteo.de> | 2023-10-14 12:11:38 +0200 |
commit | ef5f4581f31ec35a4b2afefbafac56f175566879 (patch) | |
tree | facf9420cd3eb7baaa309afa732f8823522dfca0 /app/Issue | |
parent | 9806a5284d0f189da90ea0020441b8d6f96daee9 (diff) |
add basic caching of Issue's
Diffstat (limited to 'app/Issue')
-rw-r--r-- | app/Issue/Tag.hs | 5 |
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 = |