git.iko.soy/hakyll
on master help sign in
Fixed some minor issues.
24959fdJasper Van der Jeugt
src/Text/Hakyll/Internal/Render.hs+1−1
compare with master
unifiedsplit
@@ -40,5 +40,5 @@ writePage = createRenderAction $ \initialContext -> do
40 let context = additionalContext' `M.union` M.singleton "root" (toRoot url)
40 let context = additionalContext' `M.union` M.singleton "root" (toRoot url)
41 destination <- toDestination url
41 destination <- toDestination url
42 makeDirectories destination
42 makeDirectories destination
43−    -- Substitute $root here, just before writing.
43+ -- Substitute $root here, just before writing.
44 liftIO $ writeFile destination $ finalSubstitute (fromString body) context
44 liftIO $ writeFile destination $ finalSubstitute (fromString body) context
src/Text/Hakyll/RenderAction.hs+2−2
@@ -99,11 +99,11 @@ instance Category RenderAction where
99 }
99 }
100
100
101instance Arrow RenderAction where
101instance Arrow RenderAction where
102− arr f = id { actionFunction = \x -> return (f x) }
102+ arr f = id { actionFunction = return . f }
103
103
104 first x = RenderAction
104 first x = RenderAction
105 { actionDependencies = actionDependencies x
105 { actionDependencies = actionDependencies x
106 , actionUrl = actionUrl x
106 , actionUrl = actionUrl x
107− , actionFunction = \(y, z) -> do y' <- (actionFunction x) y
107+ , actionFunction = \(y, z) -> do y' <- actionFunction x y
108 return (y', z)
108 return (y', z)
109 }
109 }