diff options
Diffstat (limited to 'compiler/utils/Maybes.hs')
| -rw-r--r-- | compiler/utils/Maybes.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/utils/Maybes.hs b/compiler/utils/Maybes.hs index fc8e3199ae..f5083fdab5 100644 --- a/compiler/utils/Maybes.hs +++ b/compiler/utils/Maybes.hs @@ -67,7 +67,11 @@ newtype MaybeT m a = MaybeT {runMaybeT :: m (Maybe a)} instance Functor m => Functor (MaybeT m) where fmap f x = MaybeT $ fmap (fmap f) $ runMaybeT x +#if __GLASGOW_HASKELL__ < 710 instance (Monad m, Functor m) => Applicative (MaybeT m) where +#else +instance (Monad m) => Applicative (MaybeT m) where +#endif pure = return (<*>) = ap |