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 c54a346..3bae2ac 100644 (file)
--- a/Control/Applicative.hs
+++ b/Control/Applicative.hs
@@ -36,6 +36,7 @@ module Control.Applicative (
        ) where
 
 import Prelude hiding (id,(.))
+import qualified Prelude
 
 import Control.Category
 import Control.Arrow