From dae3dca29075d5de8c4c51b3eab9bf0334866c9a Mon Sep 17 00:00:00 2001 From: Chris Wells Date: Tue, 14 Jan 2025 11:48:09 -0600 Subject: Adding new modules --- src/Hakyll/Core/Identifier/Pattorn.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Hakyll/Core/Identifier/Pattorn.hs') diff --git a/src/Hakyll/Core/Identifier/Pattorn.hs b/src/Hakyll/Core/Identifier/Pattorn.hs index 0910320..e1767c4 100644 --- a/src/Hakyll/Core/Identifier/Pattorn.hs +++ b/src/Hakyll/Core/Identifier/Pattorn.hs @@ -11,6 +11,8 @@ newtype Pattorn = Pattorn { getPattern :: Pattern } instance Semigroup Pattorn where Pattorn a <> Pattorn b = Pattorn $ a .||. b + {-# INLINE (<>) #-} instance Monoid Pattorn where mempty = Pattorn $ complement mempty + {-# INLINE mempty #-} -- cgit v1.2.3