yogsototh/hakyll
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed bug in page loading.

Browse source
This commit is contained in:
Jasper Van der Jeugt 2010-01-12 08:48:11 +01:00
parent 0152a15b1e
commit 36b0b72b63
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Hakyll/Page.hs
View file

@ -113,7 +113,7 @@ readPage pagePath = do
b <- hGetContents handle b <- hGetContents handle
return (md, b) return (md, b)
else do b <- hGetContents handle else do b <- hGetContents handle
return ([], line ++ b) return ([], line ++ "\n" ++ b)
-- Render file -- Render file
let rendered = (renderFunction $ takeExtension path) body let rendered = (renderFunction $ takeExtension path) body
@ -121,7 +121,7 @@ readPage pagePath = do
[ ("body", rendered) [ ("body", rendered)
, ("url", url) , ("url", url)
, ("path", pagePath) , ("path", pagePath)
] ++ context ] ++ metaData
seq (($|) id rnf rendered) $ hClose handle seq (($|) id rnf rendered) $ hClose handle