Fixed bug in page loading.
This commit is contained in:
parent
0152a15b1e
commit
36b0b72b63
1 changed files with 2 additions and 2 deletions
|
@ -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
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue