projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[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 ?
-- 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
-- and we get rid of HsChar right here
tidyLitPat (HsChar c) pat = mkCharLitPat c
tidyLitPat lit pat = pat