diff options
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/utils/MonadUtils.hs | 29 |
1 files changed, 0 insertions, 29 deletions
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,9 +33,7 @@ module MonadUtils import Maybes -#if HAVE_APPLICATIVE import Control.Applicative -#endif #if HAVE_MTL import Control.Monad.Trans #endif @@ -48,28 +41,6 @@ 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 ---------------------------------------------------------------------------------------- |