new Control.Category, ghc ticket #1773

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

diff --git a/Control/Applicative.hs b/Control/Applicative.hs
index cb76bcc..c54a346 100644 (file)
--- a/Control/Applicative.hs
+++ b/Control/Applicative.hs
@@ -35,11 +35,9 @@ module Control.Applicative (
        optional, some, many
        ) where
 
-#ifdef __HADDOCK__
-import Prelude
-#endif
+import Prelude hiding (id,(.))
 
-import Control.Compositor
+import Control.Category
 import Control.Arrow
        (Arrow(arr, (&&&)), ArrowZero(zeroArrow), ArrowPlus((<+>)))
 import Control.Monad (liftM, ap, MonadPlus(..))