From 6a2e6998b125024e9260d26819c262e0e7d22c8d Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Sun, 10 Jan 2010 13:26:57 +0100
Subject: Worked on  substitution.

---
 src/Text/Hakyll/Renderables.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Text/Hakyll/Renderables.hs')

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.
-- 
cgit v1.2.3