X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Control%2FArrow.hs;fp=Control%2FArrow.hs;h=d873bd836a89755404554338ebe16c1a9a0f34d5;hb=cea1e4133bcc2069e17144fc7bc2b0c01e7357f1;hp=f3c1de2f3b9ca9e5887446c2a64ec42285891fbe;hpb=1567da593abb3b195241ef43a5ae66930641bfe7;p=ghc-base.git

diff --git a/Control/Arrow.hs b/Control/Arrow.hs
index f3c1de2..d873bd8 100644
--- 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