@@ -133,7 +133,7 @@ readPage pagePath = do
133 , ("path", pagePath)
133 , ("path", pagePath)
134 ] ++ metaData
134 ] ++ metaData
136− seq (($|) id rdeepseq rendered) $ hClose handle
136+ seq (($|) id rdeepseq rendered) $ liftIO $ hClose handle
138 -- Cache if needed
138 -- Cache if needed
139 if getFromCache then return () else cachePage page
139 if getFromCache then return () else cachePage page