From 5d83e36ef8210d1514259c89ff97a25c4d19600c Mon Sep 17 00:00:00 2001 From: Chris Wells Date: Tue, 20 Jan 2026 17:00:40 -0600 Subject: Technically working, but I need a cleaner way to pass personA and journalA into a list context... --- src/Data/Alias.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Data/Alias.hs') diff --git a/src/Data/Alias.hs b/src/Data/Alias.hs index 357f901..9082c14 100644 --- a/src/Data/Alias.hs +++ b/src/Data/Alias.hs @@ -23,6 +23,7 @@ import Data.Aeson.KeyMap qualified as KM import Data.Map.Strict qualified as M import Data.Set qualified as S import Data.Typeable +import Hakyll qualified as H data WithAliases a x = WithAliases (Set a) x @@ -103,6 +104,9 @@ newtype AliasMap a x = AliasMap (Map a x) deriving newtype (Binary, Foldable, Functor, Semigroup, Monoid) deriving stock (Show, Traversable) +instance H.Writable (AliasMap a x) where + write _ _ = pure () + buildAliasMap :: (Foldable t, ToAliases x a) => t x -> AliasMap a x buildAliasMap = fmap AliasMap $ foldMap $ (<$) <*> toMap . toAliases {-# INLINE buildAliasMap #-} -- cgit v1.2.3