diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-04-12 09:00:36 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-04-12 09:00:36 +0200 |
| commit | 0a3cd37cc9635d2d1e6696bff91dcd37e81bd202 (patch) | |
| tree | 1d3d9f7d0e4b3bb9c583683be6bffc585511ec02 | |
| parent | f9699509771346ec53c0acc82c014a355857557d (diff) | |
| download | hakyll-0a3cd37cc9635d2d1e6696bff91dcd37e81bd202.tar.gz | |
Show group for identifier
| -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 |