From 36b0b72b63cb0fa9eb5861a961c14b41543b1d81 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Tue, 12 Jan 2010 08:48:11 +0100
Subject: Fixed bug in page loading.

---
 src/Text/Hakyll/Page.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text/Hakyll')

diff --git a/src/Text/Hakyll/Page.hs b/src/Text/Hakyll/Page.hs
index 2eddf20..0b7776b 100644
--- a/src/Text/Hakyll/Page.hs
+++ b/src/Text/Hakyll/Page.hs
@@ -113,7 +113,7 @@ readPage pagePath = do
                     b <- hGetContents handle
                     return (md, b)
             else do b <- hGetContents handle
-                    return ([], line ++ b)
+                    return ([], line ++ "\n" ++ b)
 
     -- Render file
     let rendered = (renderFunction $ takeExtension path) body
@@ -121,7 +121,7 @@ readPage pagePath = do
             [ ("body", rendered)
             , ("url", url)
             , ("path", pagePath)
-            ] ++ context
+            ] ++ metaData
 
     seq (($|) id rnf rendered) $ hClose handle
 
-- 
cgit v1.2.3