X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsArrows.lhs;h=ea0e42b7308d296de7ac6eec22f895be396e50d9;hp=74050ef174aedeba22119e6c94e6f95a0848b431;hb=05afb7485eea44d6410139f8a20c94b6f66c46f2;hpb=e34efb9815ab7b2cf06ac940fe10ff25c24c9631

diff --git a/ghc/compiler/deSugar/DsArrows.lhs b/ghc/compiler/deSugar/DsArrows.lhs
index 74050ef..ea0e42b 100644
--- a/ghc/compiler/deSugar/DsArrows.lhs
+++ b/ghc/compiler/deSugar/DsArrows.lhs
@@ -15,7 +15,7 @@ import DsUtils		( mkErrorAppDs,
 			  dsReboundNames, lookupReboundName )
 import DsMonad
 
-import HsSyn		( HsExpr(..), Pat(..),
+import HsSyn		( HsExpr(..), 
 			  Stmt(..), HsMatchContext(..), HsStmtContext(..), 
 			  Match(..), GRHSs(..), GRHS(..),
 			  HsCmdTop(..), HsArrAppType(..),
@@ -41,12 +41,12 @@ import TcType		( Type, tcSplitAppTy )
 import Type		( mkTyConApp )
 import CoreSyn
 import CoreFVs		( exprFreeVars )
-import CoreUtils	( exprType, mkIfThenElse, bindNonRec )
+import CoreUtils	( mkIfThenElse, bindNonRec )
 
 import Id		( Id, idType )
 import PrelInfo		( pAT_ERROR_ID )
-import DataCon		( DataCon, dataConWrapId )
-import TysWiredIn	( tupleCon, mkTupleTy )
+import DataCon		( dataConWrapId )
+import TysWiredIn	( tupleCon )
 import BasicTypes	( Boxity(..) )
 import PrelNames	( eitherTyConName, leftDataConName, rightDataConName,
 			  arrAName, composeAName, firstAName,
@@ -55,7 +55,7 @@ import Util		( mapAccumL )
 import Outputable
 
 import HsPat		( collectPatBinders, collectPatsBinders )
-import VarSet		( IdSet, emptyVarSet, mkVarSet, varSetElems,
+import VarSet		( IdSet, mkVarSet, varSetElems,
 			  intersectVarSet, minusVarSet, 
 			  unionVarSet, unionVarSets, elemVarSet )
 import SrcLoc		( SrcLoc )