diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-20 16:46:22 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-20 16:46:22 +0100 |
commit | 8602f23f7bcdcc3bec65ec98c70ee3f295482856 (patch) | |
tree | 8f86b9cb541ba0c4f1167a2211db090480d2f5b2 /src/Text/Hakyll/Render/Internal.hs | |
parent | d79022fb3481dd2f6c2c0d9112c6c6f37c71204e (diff) | |
download | hakyll-8602f23f7bcdcc3bec65ec98c70ee3f295482856.tar.gz |
Made site and cache directory configurable. Caching stubs.
Diffstat (limited to 'src/Text/Hakyll/Render/Internal.hs')
-rw-r--r-- | src/Text/Hakyll/Render/Internal.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Hakyll/Render/Internal.hs b/src/Text/Hakyll/Render/Internal.hs index d0b5814..51eecc7 100644 --- a/src/Text/Hakyll/Render/Internal.hs +++ b/src/Text/Hakyll/Render/Internal.hs @@ -85,8 +85,8 @@ pureRenderChainWith manipulation templates context = writePage :: Page -> Hakyll () writePage page = do additionalContext' <- askHakyll additionalContext - let destination = toDestination url - context = additionalContext' `M.union` M.singleton "root" (toRoot url) + destination <- toDestination url + let context = additionalContext' `M.union` M.singleton "root" (toRoot url) makeDirectories destination -- Substitute $root here, just before writing. liftIO $ writeFile destination $ finalSubstitute (getBody page) context |