X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FDesugar.hs;h=65dd645dab82b113ec6c6b8d393cd40f6a505268;hb=41e8fba828acbae1751628af50849f5352b27873;hp=7422cd77edc10f6e652735d232dd077f693954d9;hpb=e570d32717f1e85c34571760cf337aca789a3662;p=ghc-base.git

diff --git a/GHC/Desugar.hs b/GHC/Desugar.hs
index 7422cd7..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__