diff --git a/src/Text/Hakyll/Internal/Render.hs b/src/Text/Hakyll/Internal/Render.hs
index 92f6ad9e5..28fc31bce 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 a5a6f266e..7fa03a504 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)
         }