Fixed some minor issues.

jaspervdj · Mar 9, 2010 · 24959fd · 24959fd
1 parent 0204dd6
commit 24959fd
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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)
         }