From ee320c61668b532cafce7f4fd0a80ba43b3b512a Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Wed, 9 Feb 2011 13:02:28 +0100 Subject: Finish tags module --- src/Hakyll/Core/Compiler/Internal.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Hakyll/Core/Compiler') diff --git a/src/Hakyll/Core/Compiler/Internal.hs b/src/Hakyll/Core/Compiler/Internal.hs index be78412..a524a66 100644 --- a/src/Hakyll/Core/Compiler/Internal.hs +++ b/src/Hakyll/Core/Compiler/Internal.hs @@ -60,11 +60,11 @@ data Compiler a b = Compiler } instance Functor (Compiler a) where - fmap f (Compiler d j) = Compiler d $ fmap f . j + fmap f ~(Compiler d j) = Compiler d $ fmap f . j instance Applicative (Compiler a) where pure = Compiler (return S.empty) . const . return - (Compiler d1 f) <*> (Compiler d2 j) = + ~(Compiler d1 f) <*> ~(Compiler d2 j) = Compiler (liftM2 S.union d1 d2) $ \x -> f x <*> j x instance Category Compiler where @@ -74,12 +74,12 @@ instance Category Compiler where instance Arrow Compiler where arr f = Compiler (return S.empty) (return . f) - first (Compiler d j) = Compiler d $ \(x, y) -> do + first ~(Compiler d j) = Compiler d $ \(x, y) -> do x' <- j x return (x', y) instance ArrowChoice Compiler where - left (Compiler d j) = Compiler d $ \e -> case e of + left ~(Compiler d j) = Compiler d $ \e -> case e of Left l -> Left <$> j l Right r -> Right <$> return r -- cgit v1.2.3