From 62330ceae51ea28f75768196ad5e3f93eb88b8a3 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Fri, 15 Jan 2010 09:47:07 +0100
Subject: Moved some more functions from the IO monad to the Hakyll monad
 stack.

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

(limited to 'src/Text/Hakyll/Render')

diff --git a/src/Text/Hakyll/Render/Internal.hs b/src/Text/Hakyll/Render/Internal.hs
index e6379bd..e296dd2 100644
--- a/src/Text/Hakyll/Render/Internal.hs
+++ b/src/Text/Hakyll/Render/Internal.hs
@@ -87,7 +87,7 @@ writePage page = do
     globalContext <- liftM hakyllGlobalContext ask 
     let destination = toDestination url
         context = (M.singleton "root" $ toRoot url) `M.union` globalContext
-    liftIO $ makeDirectories destination
+    makeDirectories destination
     -- Substitute $root here, just before writing.
     liftIO $ writeFile destination $ finalSubstitute (getBody page) context
   where
-- 
cgit v1.2.3