projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2b37fb7
)
tab, verttab, formfeed, and CR are not allowed in strings
author
Simon Marlow
<simonmar@microsoft.com>
Mon, 16 Apr 2007 11:04:33 +0000
(11:04 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Mon, 16 Apr 2007 11:04:33 +0000
(11:04 +0000)
See #1277
compiler/parser/Ctype.lhs
patch
|
blob
|
history
diff --git
a/compiler/parser/Ctype.lhs
b/compiler/parser/Ctype.lhs
index
8d0b91b
..
60c4d2f
100644
(file)
--- a/
compiler/parser/Ctype.lhs
+++ b/
compiler/parser/Ctype.lhs
@@
-91,11
+91,11
@@
charType c = case c of
'\6' -> 0 -- \006
'\7' -> 0 -- \007
'\8' -> 0 -- \010
'\6' -> 0 -- \006
'\7' -> 0 -- \007
'\8' -> 0 -- \010
- '\9' -> cAny + cSpace -- \t
- '\10' -> cSpace -- \n (not allowed in strings, so !cAny)
- '\11' -> cAny + cSpace -- \v
- '\12' -> cAny + cSpace -- \f
- '\13' -> cAny + cSpace -- ^M
+ '\9' -> cSpace -- \t (not allowed in strings, so !cAny)
+ '\10' -> cSpace -- \n (ditto)
+ '\11' -> cSpace -- \v (ditto)
+ '\12' -> cSpace -- \f (ditto)
+ '\13' -> cSpace -- ^M (ditto)
'\14' -> 0 -- \016
'\15' -> 0 -- \017
'\16' -> 0 -- \020
'\14' -> 0 -- \016
'\15' -> 0 -- \017
'\16' -> 0 -- \020