Cope with nhc98's (occasionally-strange) import semantics.

diff --git a/Control/Arrow.hs b/Control/Arrow.hs
index f3c1de2..d873bd8 100644 (file)
--- a/Control/Arrow.hs
+++ b/Control/Arrow.hs
@@ -39,6 +39,7 @@ module Control.Arrow (
         ) where
 
 import Prelude hiding (id,(.))
+import qualified Prelude (id)
 
 import Control.Monad
 import Control.Monad.Fix