1 files changed, 4 insertions, 0 deletions
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 #-}