diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-02-01 16:43:26 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-02-01 16:43:26 +0100 |
| commit | c4b1fd5900bdff5c94891b7b1c9e764653d572a3 (patch) | |
| tree | 578ed9966565a5642de4531d65786a58cd2ccac5 /src/Text/Hakyll/Internal/Render.hs | |
| parent | fbd9ff95bdd9c9bd904d87f2b2f2d88470c68173 (diff) | |
| download | hakyll-c4b1fd5900bdff5c94891b7b1c9e764653d572a3.tar.gz | |
Added indexUrl option - experimental.
This option will render, for example, about.html to about/index.html. This way, url's will generally look more pretty.
Diffstat (limited to 'src/Text/Hakyll/Internal/Render.hs')
| -rw-r--r-- | src/Text/Hakyll/Internal/Render.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Hakyll/Internal/Render.hs b/src/Text/Hakyll/Internal/Render.hs index 167c58a..49e6be2 100644 --- a/src/Text/Hakyll/Internal/Render.hs +++ b/src/Text/Hakyll/Internal/Render.hs @@ -58,11 +58,10 @@ pureRenderChainWith manipulation templates context = writePage :: Page -> Hakyll () writePage page = do additionalContext' <- askHakyll additionalContext + url <- getUrl page 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 (fromString $ getBody page) context - where - url = getUrl page |