Fixed some minor issues.

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

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)
         }