From 0a3cd37cc9635d2d1e6696bff91dcd37e81bd202 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Tue, 12 Apr 2011 09:00:36 +0200 Subject: Show group for identifier --- src/Hakyll/Core/Identifier.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3