X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FDesugar.hs;h=eaa15dcf3e7f0db2d9d96f8e76415e406bc033cc;hb=b11d520a48696daf7bf1d191352c31ab41eddf9e;hp=a2c5da2651e977c45f458f23db4e2d03c85910ba;hpb=c55fb560777b5fbd966589c47a00bab4756b05fe;p=ghc-base.git

diff --git a/GHC/Desugar.hs b/GHC/Desugar.hs
index a2c5da2..eaa15dc 100644
--- a/GHC/Desugar.hs
+++ b/GHC/Desugar.hs
@@ -18,7 +18,6 @@ module GHC.Desugar ((>>>), AnnotationWrapper(..), toAnnotationWrapper) where
 import Control.Arrow    (Arrow(..))
 import Control.Category ((.))
 import Data.Data        (Data)
-import Prelude hiding ((.))
 
 -- A version of Control.Category.>>> overloaded on Arrow
 #ifndef __HADDOCK__
@@ -34,4 +33,4 @@ f >>> g = g . f
 data AnnotationWrapper = forall a. (Data a) => AnnotationWrapper a
 
 toAnnotationWrapper :: (Data a) => a -> AnnotationWrapper
-toAnnotationWrapper what = AnnotationWrapper what
\ No newline at end of file
+toAnnotationWrapper what = AnnotationWrapper what