diff options
| -rw-r--r-- | src/Text/Hakyll/Internal/Render.hs | 2 | ||||
| -rw-r--r-- | src/Text/Hakyll/RenderAction.hs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Hakyll/Internal/Render.hs b/src/Text/Hakyll/Internal/Render.hs index 92f6ad9..28fc31b 100644 --- a/src/Text/Hakyll/Internal/Render.hs +++ b/src/Text/Hakyll/Internal/Render.hs @@ -40,5 +40,5 @@ writePage = createRenderAction $ \initialContext -> do let context = additionalContext' `M.union` M.singleton "root" (toRoot url) destination <- toDestination url makeDirectories destination - -- Substitute $root here, just before writing. + -- Substitute $root here, just before writing. liftIO $ writeFile destination $ finalSubstitute (fromString body) context diff --git a/src/Text/Hakyll/RenderAction.hs b/src/Text/Hakyll/RenderAction.hs index a5a6f26..7fa03a5 100644 --- a/src/Text/Hakyll/RenderAction.hs +++ b/src/Text/Hakyll/RenderAction.hs @@ -99,11 +99,11 @@ instance Category RenderAction where } instance Arrow RenderAction where - arr f = id { actionFunction = \x -> return (f x) } + arr f = id { actionFunction = return . f } first x = RenderAction { actionDependencies = actionDependencies x , actionUrl = actionUrl x - , actionFunction = \(y, z) -> do y' <- (actionFunction x) y + , actionFunction = \(y, z) -> do y' <- actionFunction x y return (y', z) } |