summaryrefslogtreecommitdiff
path: root/src/Hakyll/Core/Identifier.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Hakyll/Core/Identifier.hs')
-rw-r--r--src/Hakyll/Core/Identifier.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Hakyll/Core/Identifier.hs b/src/Hakyll/Core/Identifier.hs
index 609e722..ea03e8c 100644
--- a/src/Hakyll/Core/Identifier.hs
+++ b/src/Hakyll/Core/Identifier.hs
@@ -10,6 +10,7 @@
--
-- * @error/404@
--
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Hakyll.Core.Identifier
( Identifier (..)
, parseIdentifier
@@ -17,6 +18,7 @@ module Hakyll.Core.Identifier
) where
import Control.Arrow (second)
+import Data.Monoid (Monoid)
import GHC.Exts (IsString, fromString)
import System.FilePath (joinPath)
@@ -24,7 +26,7 @@ import System.FilePath (joinPath)
-- | An identifier used to uniquely identify a value
--
newtype Identifier = Identifier {unIdentifier :: [String]}
- deriving (Eq, Ord)
+ deriving (Eq, Ord, Monoid)
instance Show Identifier where
show = toFilePath