on master help sign in
Fixed bug in page loading.
commit36b0b72b63cb0fa9eb5861a961c14b41543b1d81 authorJasper Van der Jeugt <jaspervdj@gmail.com> dateTue 12 Jan 2010, 08:48 (17 years ago) parent0152a15
1 file changed+2−2
src/Text/Hakyll/Page.hs+2−2
src/Text/Hakyll/Page.hs+2−2
@@ -113,7 +113,7 @@ readPage pagePath = do
113113 b <- hGetContents handle
114114 return (md, b)
115115 else do b <- hGetContents handle
116− return ([], line ++ b)
116+ return ([], line ++ "\n" ++ b)
117117
118118 -- Render file
119119 let rendered = (renderFunction $ takeExtension path) body
@@ -121,7 +121,7 @@ readPage pagePath = do
121121 [ ("body", rendered)
122122 , ("url", url)
123123 , ("path", pagePath)
124− ] ++ context
124+ ] ++ metaData
125125
126126 seq (($|) id rnf rendered) $ hClose handle
127127