diff options
| -rw-r--r-- | src/Hakyll/Core/Identifier.hs | 3 |
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 |