From 8602f23f7bcdcc3bec65ec98c70ee3f295482856 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Wed, 20 Jan 2010 16:46:22 +0100 Subject: Made site and cache directory configurable. Caching stubs. --- src/Text/Hakyll/Render/Internal.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text/Hakyll/Render') 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 -- cgit v1.2.3