X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FMatchLit.lhs;h=d7e8ba64d8f565963c73ca8ddb911c5b03678f01;hp=3751f95a838aaf7abd84199a5e45d80a69aa1b1d;hb=49c98d143c382a1341e1046f5ca00819a25691ba;hpb=b00b5bc04ff36a551552470060064f0b7d84ca30

diff --git a/compiler/deSugar/MatchLit.lhs b/compiler/deSugar/MatchLit.lhs
index 3751f95..d7e8ba6 100644
--- a/compiler/deSugar/MatchLit.lhs
+++ b/compiler/deSugar/MatchLit.lhs
@@ -1,7 +1,9 @@
 %
+% (c) The University of Glasgow 2006
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
-\section[MatchLit]{Pattern-matching literal patterns}
+
+Pattern-matching literal patterns
 
 \begin{code}
 module MatchLit ( dsLit, dsOverLit, hsLitKey, hsOverLitKey,
@@ -17,24 +19,23 @@ import DsMonad
 import DsUtils
 
 import HsSyn
-import Id		( Id, idType )
+import Id
 import CoreSyn
-import TyCon		( tyConDataCons )
-import DataCon		( DataCon )
-import TcType		( tcSplitTyConApp, isIntegerTy, isIntTy, 
-			  isFloatTy, isDoubleTy, isStringTy )
-import Type		( Type )
-import PrelNames	( ratioTyConKey )
-import TysWiredIn	( stringTy, consDataCon, intDataCon, floatDataCon, doubleDataCon )
-import PrelNames	( eqStringName )
-import Unique		( hasKey )
-import Literal		( mkMachInt, Literal(..) )
-import SrcLoc		( noLoc )
-import Ratio 		( numerator, denominator )
-import SrcLoc		( Located(..), unLoc )
+import TyCon
+import DataCon
+import TcType
+import Type
+import PrelNames
+import TysWiredIn
+import PrelNames
+import Unique
+import Literal
+import SrcLoc
+import Ratio
+import SrcLoc
 import Outputable
-import Util		( mapAndUnzip )
-import FastString	( lengthFS, unpackFS )
+import Util
+import FastString
 \end{code}
 
 %************************************************************************