diff options
Diffstat (limited to 'src/Text/Hakyll/Internal')
| -rw-r--r-- | src/Text/Hakyll/Internal/Render.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Hakyll/Internal/Render.hs b/src/Text/Hakyll/Internal/Render.hs index 28fc31b..178e6ff 100644 --- a/src/Text/Hakyll/Internal/Render.hs +++ b/src/Text/Hakyll/Internal/Render.hs @@ -14,7 +14,7 @@ import Data.Maybe (fromMaybe) import Text.Hakyll.Context (Context, ContextManipulation) import Text.Hakyll.File import Text.Hakyll.Hakyll -import Text.Hakyll.RenderAction +import Text.Hakyll.HakyllAction import Text.Hakyll.Internal.Template -- | A pure render function. @@ -31,8 +31,8 @@ pureRenderWith manipulation template context = -- | Write a page to the site destination. Final action after render -- chains and such. -writePage :: RenderAction Context () -writePage = createRenderAction $ \initialContext -> do +writePage :: HakyllAction Context () +writePage = createHakyllAction $ \initialContext -> do additionalContext' <- askHakyll getAdditionalContext let url = fromMaybe (error "No url defined at write time.") (M.lookup "url" initialContext) |