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

diff --git a/GHC/Desugar.hs b/GHC/Desugar.hs
index a2c5da2..65dd645 100644
--- a/GHC/Desugar.hs
+++ b/GHC/Desugar.hs
@@ -1,3 +1,9 @@
+{-# LANGUAGE CPP
+           , NoImplicitPrelude
+           , Rank2Types
+           , ExistentialQuantification
+  #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.Desugar
@@ -18,7 +24,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 +39,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