module Hakyll.Core.Identifier.Pattorn
    ( Pattorn (..)
    ) where

import Prolog
import Hakyll

-- | Wrapper around 'Pattern' to get a semigroup with "or" as its operation
newtype Pattorn = Pattorn { getPattern :: Pattern }
    deriving newtype (Binary, Show, IsString)

instance Semigroup Pattorn where
    Pattorn a <> Pattorn b = Pattorn $ a .||. b

instance Monoid Pattorn where
    mempty = Pattorn $ complement mempty