X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FMatchLit.lhs;fp=ghc%2Fcompiler%2FdeSugar%2FMatchLit.lhs;h=51c7c989315fccadc642560d6d6ab72cd989bbf4;hb=853e20a3eb86137cdb8accf69c6caa9db83a3d34;hp=5ca0569d648e8e08ce79321457b34947546d00b8;hpb=ca739e852566d7e0bfd594e6d7bf08da04f78d3c;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/MatchLit.lhs b/ghc/compiler/deSugar/MatchLit.lhs
index 5ca0569..51c7c98 100644
--- a/ghc/compiler/deSugar/MatchLit.lhs
+++ b/ghc/compiler/deSugar/MatchLit.lhs
@@ -88,8 +88,8 @@ tidyLitPat :: HsLit -> LPat Id -> LPat Id
 -- Result has only the following HsLits:
 --	HsIntPrim, HsCharPrim, HsFloatPrim
 --	HsDoublePrim, HsStringPrim ?
--- * HsInteger, HsRat, HsInt can't show up in LitPats,
--- * HsString has been turned into an NPat in tcPat
+--  * HsInteger, HsRat, HsInt can't show up in LitPats,
+--  * HsString has been turned into an NPat in tcPat
 -- and we get rid of HsChar right here
 tidyLitPat (HsChar c) pat = mkCharLitPat c
 tidyLitPat lit	      pat = pat