Fix a few places where we forgot to close the text codecs (#4029)

[ghc-base.git] / GHC / Desugar.hs

diff --git a/GHC/Desugar.hs b/GHC/Desugar.hs
index a2c5da2..eaa15dc 100644 (file)
--- 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