24959fd · hakyll · git.iko.soy

git.iko.soy/hakyll

Fixed some minor issues.

commit24959fd68b949e69778ad5387aa34961202060a9 authorJasper Van der Jeugt <jaspervdj@gmail.com> dateTue 9 Mar 2010, 18:47 (17 years ago) parent0204dd6

2 files changed+3−3

compare with master

unifiedsplit

src/Text/Hakyll/Internal/Render.hs+1−1 src/Text/Hakyll/RenderAction.hs+2−2

src/Text/Hakyll/Internal/Render.hs+1−1

@@ -40,5 +40,5 @@ writePage = createRenderAction $ \initialContext -> do

4040 let context = additionalContext' `M.union` M.singleton "root" (toRoot url)

4141 destination <- toDestination url

4242 makeDirectories destination

43− -- Substitute $root here, just before writing.

43+ -- Substitute $root here, just before writing.

4444 liftIO $ writeFile destination $ finalSubstitute (fromString body) context

src/Text/Hakyll/RenderAction.hs+2−2

@@ -99,11 +99,11 @@ instance Category RenderAction where

9999 }

100100

101101instance Arrow RenderAction where

102− arr f = id { actionFunction = \x -> return (f x) }

102+ arr f = id { actionFunction = return . f }

103103

104104 first x = RenderAction

105105 { actionDependencies = actionDependencies x

106106 , actionUrl = actionUrl x

107− , actionFunction = \(y, z) -> do y' <- (actionFunction x) y

107+ , actionFunction = \(y, z) -> do y' <- actionFunction x y

108108 return (y', z)

109109 }