Make Applicative a superclass of Monadwip/amp

Signed-off-by: Austin Seipp <austin@well-typed.com>

2 files changed, 6 insertions, 0 deletions

diff --git a/compiler/utils/Maybes.lhs b/compiler/utils/Maybes.lhs
index d9e1762a2f..e1bba86382 100644
--- a/compiler/utils/Maybes.lhs
+++ b/compiler/utils/Maybes.lhs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 %
 % (c) The University of Glasgow 2006
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
@@ -17,7 +18,9 @@ module Maybes (
 
         MaybeT(..)
     ) where
+#if __GLASGOW_HASKELL__ < 709
 import Control.Applicative
+#endif
 import Control.Monad
 import Data.Maybe
 
diff --git a/compiler/utils/Stream.hs b/compiler/utils/Stream.hs
index 47cdee0789..2353a8177d 100644
--- a/compiler/utils/Stream.hs
+++ b/compiler/utils/Stream.hs
@@ -12,7 +12,10 @@ module Stream (
     Stream.map, Stream.mapM, Stream.mapAccumL
   ) where
 import Control.Monad
+#if __GLASGOW_HASKELL__ < 709
 import Control.Applicative
+#endif
+
 
 -- |
 -- @Stream m a b@ is a computation in some Monad @m@ that delivers a sequence