X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FMatch.lhs;h=9a188716f36c829aa11a044e39842116759b7324;hb=1b7a99e3e7f64c6f402e8aece32ba0b9a3703bfa;hp=7d0e47fffdb651144b6797e7d988472b3466be86;hpb=6e0892adec42702e7879a23587d2c7210c55a078;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/Match.lhs b/ghc/compiler/deSugar/Match.lhs
index 7d0e47f..9a18871 100644
--- a/ghc/compiler/deSugar/Match.lhs
+++ b/ghc/compiler/deSugar/Match.lhs
@@ -8,8 +8,6 @@ module Match ( match, matchExport, matchWrapper, matchSimply, matchSinglePat ) w
 
 #include "HsVersions.h"
 
-import {-# SOURCE #-} DsExpr  ( dsExpr, dsLet  )
-
 import CmdLineOpts	( opt_WarnIncompletePatterns, opt_WarnOverlappingPatterns,
 			  opt_WarnSimplePatterns
      			)
@@ -27,18 +25,8 @@ import DataCon		( dataConFieldLabels, dataConArgTys )
 import MatchCon		( matchConFamily )
 import MatchLit		( matchLiterals )
 import PrelInfo		( pAT_ERROR_ID )
-import Type		( isUnLiftedType, splitAlgTyConApp,
-			  mkTyVarTys, Type
-			)
-import TysPrim		( intPrimTy, charPrimTy, floatPrimTy, doublePrimTy,
-			  addrPrimTy, wordPrimTy
-			)
-import TysWiredIn	( nilDataCon, consDataCon, mkTupleTy, mkListTy,
-			  charTy, charDataCon, intTy, intDataCon,
-			  floatTy, floatDataCon, doubleTy, tupleCon,
-			  doubleDataCon, addrTy,
-			  addrDataCon, wordTy, wordDataCon
-			)
+import Type		( splitAlgTyConApp, mkTyVarTys, Type )
+import TysWiredIn	( nilDataCon, consDataCon, mkTupleTy, mkListTy, tupleCon )
 import BasicTypes	( Boxity(..) )
 import UniqSet
 import ErrUtils		( addErrLocHdrLine, dontAddErrLoc )