diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-20 11:36:45 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-20 11:36:45 +0100 |
| commit | bfa10560f87b1843f9302a70f6c9333fc2731e88 (patch) | |
| tree | ebba1270dad7f601c5188c455e3d642130f0ac83 /src | |
| parent | b1f70c339e031c1f6abf04ff63566f2cb9757a07 (diff) | |
| download | hakyll-bfa10560f87b1843f9302a70f6c9333fc2731e88.tar.gz | |
Re-enable some tests
Diffstat (limited to 'src')
| -rw-r--r-- | src/Hakyll/Core/Item.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Hakyll/Core/Item.hs b/src/Hakyll/Core/Item.hs index 1f9af8e..ccf9e9a 100644 --- a/src/Hakyll/Core/Item.hs +++ b/src/Hakyll/Core/Item.hs @@ -5,6 +5,7 @@ module Hakyll.Core.Item ( Item (..) , itemSetBody + , itemM ) where @@ -39,3 +40,8 @@ instance Binary a => Binary (Item a) where -------------------------------------------------------------------------------- itemSetBody :: a -> Item b -> Item a itemSetBody x (Item i _) = Item i x + + +-------------------------------------------------------------------------------- +itemM :: Monad m => (a -> m b) -> Item a -> m (Item b) +itemM f (Item i b) = f b >>= \b' -> return (Item i b') |