diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-12 08:48:11 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-12 08:48:11 +0100 |
| commit | 36b0b72b63cb0fa9eb5861a961c14b41543b1d81 (patch) | |
| tree | 7c2edfeb147aface57060c7eae57fa040b8c33c7 /src/Text/Hakyll/Page.hs | |
| parent | 0152a15b1e625b447ccb9d8a7956d026b401c31a (diff) | |
| download | hakyll-36b0b72b63cb0fa9eb5861a961c14b41543b1d81.tar.gz | |
Fixed bug in page loading.
Diffstat (limited to 'src/Text/Hakyll/Page.hs')
| -rw-r--r-- | src/Text/Hakyll/Page.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |