From bfa10560f87b1843f9302a70f6c9333fc2731e88 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Tue, 20 Nov 2012 11:36:45 +0100 Subject: Re-enable some tests --- src/Hakyll/Core/Item.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/Hakyll/Core') 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') -- cgit v1.2.3