[project @ 2005-03-31 10:16:33 by simonmar]

[ghc-hetmet.git] / ghc / compiler / deSugar / MatchLit.lhs

diff --git a/ghc/compiler/deSugar/MatchLit.lhs b/ghc/compiler/deSugar/MatchLit.lhs
index 5ca0569..51c7c98 100644 (file)
--- 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