Cope with nhc98's (occasionally-strange) import semantics.
[ghc-base.git] / Control / Arrow.hs
index f3c1de2..d873bd8 100644 (file)
@@ -39,6 +39,7 @@ module Control.Arrow (
         ) where
 
 import Prelude hiding (id,(.))
+import qualified Prelude (id)
 
 import Control.Monad
 import Control.Monad.Fix