summaryrefslogtreecommitdiff
path: root/src/Hakyll/Core
diff options
context:
space:
mode:
Diffstat (limited to 'src/Hakyll/Core')
-rw-r--r--src/Hakyll/Core/Identifier.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Hakyll/Core/Identifier.hs b/src/Hakyll/Core/Identifier.hs
index f644951..c2455fc 100644
--- a/src/Hakyll/Core/Identifier.hs
+++ b/src/Hakyll/Core/Identifier.hs
@@ -55,7 +55,8 @@ instance Binary Identifier where
get = Identifier <$> get <*> get
instance Show Identifier where
- show = toFilePath
+ show i@(Identifier Nothing _) = toFilePath i
+ show i@(Identifier (Just g) _) = toFilePath i ++ " (" ++ g ++ ")"
instance IsString Identifier where
fromString = parseIdentifier