yogsototh/hakyll
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added Arrow implementation for RenderAction.

Browse source
This commit is contained in:
Jasper Van der Jeugt 2010-03-09 18:26:53 +01:00
parent 4756b82329
commit 0204dd678a
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/Text/Hakyll/RenderAction.hs
View file

@ -11,6 +11,7 @@ module Text.Hakyll.RenderAction
, Renderable
) where
import Control.Arrow
import Control.Category
import Control.Monad ((<=<), mplus, unless)
import Control.Monad.Reader (liftIO)
@ -96,3 +97,13 @@ instance Category RenderAction where
, actionUrl = actionUrl y `mplus` actionUrl x
, actionFunction = actionFunction x <=< actionFunction y
}
instance Arrow RenderAction where
arr f = id { actionFunction = \x -> return (f x) }
first x = RenderAction
{ actionDependencies = actionDependencies x
, actionUrl = actionUrl x
, actionFunction = \(y, z) -> do y' <- (actionFunction x) y
return (y', z)
}