From f9fa73dd0f96280ddc73800ca8d247aa788561b5 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 8 Nov 2008 14:47:23 +0000 Subject: We now require GHC 6.6, so we always have Applicative --- compiler/utils/MonadUtils.hs | 29 ----------------------------- 1 file changed, 29 deletions(-) (limited to 'compiler/utils/MonadUtils.hs') diff --git a/compiler/utils/MonadUtils.hs b/compiler/utils/MonadUtils.hs index 28613a4284..3c4e3861e3 100644 --- a/compiler/utils/MonadUtils.hs +++ b/compiler/utils/MonadUtils.hs @@ -24,11 +24,6 @@ module MonadUtils -- Detection of available libraries ---------------------------------------------------------------------------------------- -#if __GLASGOW_HASKELL__ >= 606 -#define HAVE_APPLICATIVE 1 -#else -#define HAVE_APPLICATIVE 0 -#endif -- we don't depend on MTL for now #define HAVE_MTL 0 @@ -38,37 +33,13 @@ module MonadUtils import Maybes -#if HAVE_APPLICATIVE import Control.Applicative -#endif #if HAVE_MTL import Control.Monad.Trans #endif import Control.Monad import Control.Monad.Fix ----------------------------------------------------------------------------------------- --- Applicative ----------------------------------------------------------------------------------------- - -#if !HAVE_APPLICATIVE - -class Functor f => Applicative f where - pure :: a -> f a - (<*>) :: f (a -> b) -> f a -> f b - -(<$>) :: Functor f => (a -> b) -> (f a -> f b) -(<$>) = fmap - -infixl 4 <$> -infixl 4 <*> - -instance Applicative IO where - pure = return - (<*>) = ap - -#endif - ---------------------------------------------------------------------------------------- -- MTL ---------------------------------------------------------------------------------------- -- cgit v1.2.1