X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsExpr.lhs;h=46e63e35cf1e542b2abba29a4c19ef9bc1e3c6be;hb=4e94cbc42227ecb187e5c2d03831ca49549095eb;hp=3a31d90c817ed32bd7e474498fe9ce4ea3901082;hpb=56b5a8b862d4eaeeaa941dd53e3d1009bdeadc0d;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsExpr.lhs b/ghc/compiler/deSugar/DsExpr.lhs
index 3a31d90..46e63e3 100644
--- a/ghc/compiler/deSugar/DsExpr.lhs
+++ b/ghc/compiler/deSugar/DsExpr.lhs
@@ -23,7 +23,7 @@ import DsMonad
 import DsMeta		( dsBracket, dsReify )
 #endif
 
-import HsSyn		( HsExpr(..), Pat(..), HsLit(..), ArithSeqInfo(..),
+import HsSyn		( HsExpr(..), Pat(..), ArithSeqInfo(..),
 			  Stmt(..), HsMatchContext(..), HsStmtContext(..), 
 			  Match(..), HsBinds(..), MonoBinds(..), HsConDetails(..),
 			  mkSimpleMatch, isDoExpr
@@ -40,7 +40,6 @@ import TcType		( tcSplitAppTy, tcSplitFunTys, tcTyConAppArgs,
 			  mkAppTy )
 import Type		( splitFunTys )
 import CoreSyn
-import Literal		( Literal(..) )
 import CoreUtils	( exprType, mkIfThenElse, bindNonRec )
 
 import FieldLabel	( FieldLabel, fieldLabelTyCon )