From 597116a87d795eb26fc92bdd7519556c89c8b11d Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Mon, 18 Jan 2010 19:32:06 +0100
Subject: Added liftIO.

---
 src/Text/Hakyll/Page.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Text/Hakyll/Page.hs b/src/Text/Hakyll/Page.hs
index bae7fa6..28d3540 100644
--- a/src/Text/Hakyll/Page.hs
+++ b/src/Text/Hakyll/Page.hs
@@ -133,7 +133,7 @@ readPage pagePath = do
             , ("path", pagePath)
             ] ++ metaData
 
-    seq (($|) id rdeepseq rendered) $ hClose handle
+    seq (($|) id rdeepseq rendered) $ liftIO $ hClose handle
 
     -- Cache if needed
     if getFromCache then return () else cachePage page
-- 
cgit v1.2.3