Added liftIO.
commit597116a87d795eb26fc92bdd7519556c89c8b11d
authorJasper Van der Jeugt <jaspervdj@gmail.com>
dateMon 18 Jan 2010, 19:32 (17 years ago)
parent0640814
src/Text/Hakyll/Page.hs+1−1
@@ -133,7 +133,7 @@ readPage pagePath = do
133133 , ("path", pagePath)
134134 ] ++ metaData
135135
136− seq (($|) id rdeepseq rendered) $ hClose handle
136+ seq (($|) id rdeepseq rendered) $ liftIO $ hClose handle
137137
138138 -- Cache if needed
139139 if getFromCache then return () else cachePage page