diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-10 13:26:57 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-10 13:26:57 +0100 |
| commit | 6a2e6998b125024e9260d26819c262e0e7d22c8d (patch) | |
| tree | b00286fa709701e6e072e84d4f7225d8d6fbd801 /src/Text/Hakyll/Renderables.hs | |
| parent | bc71d54ab732d71e2f1a3c5e3dce9f3231334605 (diff) | |
| download | hakyll-6a2e6998b125024e9260d26819c262e0e7d22c8d.tar.gz | |
Worked on substitution.
Diffstat (limited to 'src/Text/Hakyll/Renderables.hs')
| -rw-r--r-- | src/Text/Hakyll/Renderables.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Hakyll/Renderables.hs b/src/Text/Hakyll/Renderables.hs index 996534e..bd474e2 100644 --- a/src/Text/Hakyll/Renderables.hs +++ b/src/Text/Hakyll/Renderables.hs @@ -32,7 +32,8 @@ instance Renderable CustomPage where toContext page = do values <- mapM (either (return . B.pack) (>>= return) . snd) (mapping page) let keys = map (B.pack . fst) (mapping page) - return $ M.fromList $ (B.pack "url", B.pack $ url page) : zip keys values + return $ M.fromList $ [ (B.pack "url", B.pack $ url page) + ] ++ zip keys values -- | PagePath is a class that wraps a FilePath. This is used to render Pages -- without reading them first through use of caching. |