From 24959fd68b949e69778ad5387aa34961202060a9 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Tue, 9 Mar 2010 18:47:35 +0100
Subject: Fixed some minor issues.

---
 src/Text/Hakyll/Internal/Render.hs | 2 +-
 src/Text/Hakyll/RenderAction.hs    | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'src')

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)
         }
-- 
cgit v1.2.3