diff options
Diffstat (limited to 'src/Text/Hakyll/Render')
| -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 |