X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FMatchLit.lhs;fp=ghc%2Fcompiler%2FdeSugar%2FMatchLit.lhs;h=e260e0cd586dbd692c988c3b88299d17089d889c;hb=98688c6e8fd33f31c51218cf93cbf03fe3a5e73d;hp=2be6e259d6b9e30b8107489f2dc96e818bf54698;hpb=79c93a8a30aaaa6bd940c0677d6f3c57eb727fa2;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/MatchLit.lhs b/ghc/compiler/deSugar/MatchLit.lhs
index 2be6e25..e260e0c 100644
--- a/ghc/compiler/deSugar/MatchLit.lhs
+++ b/ghc/compiler/deSugar/MatchLit.lhs
@@ -19,14 +19,14 @@ import TcHsSyn		( TypecheckedPat )
 import Id		( Id )
 import CoreSyn
 import TyCon		( tyConDataCons )
-import TcType		( tcSplitTyConApp, isIntegerTy  )
-
+import TcType		( tcSplitTyConApp, isIntegerTy )
 import PrelNames	( ratioTyConKey )
 import Unique		( hasKey )
 import Literal		( mkMachInt, Literal(..) )
 import Maybes		( catMaybes )
 import Panic		( panic, assertPanic )
 import Ratio 		( numerator, denominator )
+import Outputable
 \end{code}
 
 %************************************************************************
@@ -56,7 +56,7 @@ dsLit (HsChar c)       = returnDs (mkCharExpr c)
 dsLit (HsCharPrim c)   = returnDs (mkLit (MachChar c))
 dsLit (HsString str)   = mkStringLitFS str
 dsLit (HsStringPrim s) = returnDs (mkLit (MachStr s))
-dsLit (HsInteger i)    = mkIntegerExpr i
+dsLit (HsInteger i _)  = mkIntegerExpr i
 dsLit (HsInt i)	       = returnDs (mkIntExpr i)
 dsLit (HsIntPrim i)    = returnDs (mkIntLit i)
 dsLit (HsFloatPrim f)  = returnDs (mkLit (MachFloat f))