id,summary,reporter,owner,description,type,status,priority,milestone,component,version,resolution,keywords,cc,os,architecture,failure,difficulty,testcase,blockedby,blocking,related
3050,parsec: bug in caret escape parsing,sof,,"The parsing of escape carets in character literals isn't quite right:
 * off-by-one (i.e., \^A == \NUL; ought to be \^A=\001)
 * only A-Z carets are supported.

The following minor mod takes care of the problem:

{{{
--- Text/ParserCombinators/Parsec/Token.hs	2009-02-20 10:49:32.115500000 -0800
+++ Text/ParserCombinators/Parsec/Token.hs.~1~	2009-02-20 10:02:45.896750000 -0800
@@ -193,8 +193,8 @@
 
     -- charControl :: CharParser st Char
     charControl     = do{ char '^'
-                        ; code <- (oneOf ['@'..'_']) <|> char '?'
-                        ; return (if code == '?' then '\DEL' else toEnum (fromEnum code - fromEnum '@'))
+                        ; code <- upper
+                        ; return (toEnum (fromEnum code - fromEnum 'A'))
                         }
}}}
",bug,closed,normal,Not GHC,libraries (other),6.10.1,invalid,,sof michal.terepeta@…,Unknown/Multiple,Unknown/Multiple,None/Unknown,Unknown,,,,