X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FDsUtils.lhs;h=0552c2bd088ee3beb336f7618ceaacc99480b0f2;hb=ab22f4e6456820c1b5169d75f5975a94e61f54ce;hp=8c5a743c2021ac178066dfbbaaf6e63da830169c;hpb=27897431cf24d4bde04b15947440c7205f2d703c;p=ghc-hetmet.git

diff --git a/compiler/deSugar/DsUtils.lhs b/compiler/deSugar/DsUtils.lhs
index 8c5a743..0552c2b 100644
--- a/compiler/deSugar/DsUtils.lhs
+++ b/compiler/deSugar/DsUtils.lhs
@@ -1,7 +1,9 @@
 %
+% (c) The University of Glasgow 2006
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
-\section[DsUtils]{Utilities for desugaring}
+
+Utilities for desugaring
 
 This module exports some utility functions of no great interest.
 
@@ -40,45 +42,36 @@ import {-# SOURCE #-}	Match ( matchSimply )
 import {-# SOURCE #-}	DsExpr( dsExpr )
 
 import HsSyn
-import TcHsSyn		( hsLPatType, hsPatType )
+import TcHsSyn
 import CoreSyn
-import Constants	( mAX_TUPLE_SIZE )
+import Constants
 import DsMonad
 
-import CoreUtils	( exprType, mkIfThenElse, mkCoerce, bindNonRec )
-import MkId		( iRREFUT_PAT_ERROR_ID, mkReboxingAlt, unwrapNewTypeBody )
-import Id		( idType, Id, mkWildId, mkTemplateLocals, mkSysLocal )
-import Var		( Var )
-import Name		( Name )
-import Literal		( Literal(..), mkStringLit, inIntRange, tARGET_MAX_INT )
-import TyCon		( isNewTyCon, tyConDataCons, tyConArity )
-import DataCon		( DataCon, dataConSourceArity, dataConTyCon, dataConTag, dataConRepArgTys )
-import Type		( mkFunTy, isUnLiftedType, Type, splitTyConApp, mkTyVarTy,
-                          splitNewTyConApp )
-import Coercion         ( Coercion, mkUnsafeCoercion )
-import TcType		( tcEqType )
-import TysPrim		( intPrimTy )
-import TysWiredIn	( nilDataCon, consDataCon, 
-                          tupleCon, mkTupleTy,
-			  unitDataConId, unitTy,
-                          charTy, charDataCon, 
-                          intTy, intDataCon, 
-			  isPArrFakeCon )
-import BasicTypes	( Boxity(..) )
-import UniqSet		( mkUniqSet, minusUniqSet, isEmptyUniqSet )
-import UniqSupply	( splitUniqSupply, uniqFromSupply, uniqsFromSupply )
-import PrelNames	( unpackCStringName, unpackCStringUtf8Name, 
-			  plusIntegerName, timesIntegerName, smallIntegerDataConName, 
-			  lengthPName, indexPName )
+import CoreUtils
+import MkId
+import Id
+import Var
+import Name
+import Literal
+import TyCon
+import DataCon
+import Type
+import Coercion
+import TysPrim
+import TysWiredIn
+import BasicTypes
+import UniqSet
+import UniqSupply
+import PrelNames
 import Outputable
-import SrcLoc		( Located(..), unLoc )
-import Util             ( isSingleton, zipEqual, sortWith )
-import ListSetOps	( assocDefault )
+import SrcLoc
+import Util
+import ListSetOps
 import FastString
-import Data.Char	( ord )
+import Data.Char
 
 #ifdef DEBUG
-import Util		( notNull )	-- Used in an assertion
+import Util
 #endif
 \end{code}