fix nhc98 build: need a qualified Prelude import

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

diff --git a/Control/Arrow.hs b/Control/Arrow.hs
index 76c0212..66c7745 100644 (file)
--- a/Control/Arrow.hs
+++ b/Control/Arrow.hs
@@ -37,6 +37,7 @@ module Control.Arrow (
        ) where
 
 import Prelude hiding (id,(.))
+import qualified Prelude
 
 import Control.Monad
 import Control.Monad.Fix