Show group for identifier
commit0a3cd37cc9635d2d1e6696bff91dcd37e81bd202
authorJasper Van der Jeugt <jaspervdj@gmail.com>
dateTue 12 Apr 2011, 09:00 (16 years ago)
parentf969950
src/Hakyll/Core/Identifier.hs+2−1
@@ -55,7 +55,8 @@ instance Binary Identifier where
5555 get = Identifier <$> get <*> get
5656
5757instance Show Identifier where
58− show = toFilePath
58+ show i@(Identifier Nothing _) = toFilePath i
59+ show i@(Identifier (Just g) _) = toFilePath i ++ " (" ++ g ++ ")"
5960
6061instance IsString Identifier where
6162 fromString = parseIdentifier