fix nhc98 build: need a qualified Prelude import

[ghc-base.git] / Control / Applicative.hs

diff --git a/Control/Applicative.hs b/Control/Applicative.hs
index c22c55d..3bae2ac 100644 (file)
--- a/Control/Applicative.hs
+++ b/Control/Applicative.hs
@@ -35,12 +35,12 @@ module Control.Applicative (
        optional, some, many
        ) where
 
-#ifdef __HADDOCK__
-import Prelude
-#endif
+import Prelude hiding (id,(.))
+import qualified Prelude
 
+import Control.Category
 import Control.Arrow
-       (Arrow(arr, (>>>), (&&&)), ArrowZero(zeroArrow), ArrowPlus((<+>)))
+       (Arrow(arr, (&&&)), ArrowZero(zeroArrow), ArrowPlus((<+>)))
 import Control.Monad (liftM, ap, MonadPlus(..))
 import Control.Monad.Instances ()
 import Data.Monoid (Monoid(..))