summaryrefslogtreecommitdiff
path: root/src/Text/Hakyll/Renderables.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Hakyll/Renderables.hs')
-rw-r--r--src/Text/Hakyll/Renderables.hs3
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.