diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-15 09:47:07 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-15 09:47:07 +0100 |
| commit | 62330ceae51ea28f75768196ad5e3f93eb88b8a3 (patch) | |
| tree | a3a45aa9e0d63c65eb4fc4e7a4277fde645b8f48 /src/Text/Hakyll/Render | |
| parent | a180016488d0fed843f525db824dc0c24cde90ca (diff) | |
| download | hakyll-62330ceae51ea28f75768196ad5e3f93eb88b8a3.tar.gz | |
Moved some more functions from the IO monad to the Hakyll monad stack.
Diffstat (limited to 'src/Text/Hakyll/Render')
| -rw-r--r-- | src/Text/Hakyll/Render/Internal.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |