Changeset 7953 for src/Pugs/Lexer.hs

Timestamp:

11/14/05 03:15:42 (3 years ago)

Author:

luqui

svk:copy_cache_prev:

10363

Message:

Added some tests for these changes. The listop method needs
many many more, though.

Files:

• src/Pugs/Lexer.hs (modified) (1 diff)

src/Pugs/Lexer.hs

@@ -203 +203 @@
 charControl :: GenParser Char st Char
 charControl     = do{ char 'c'
-                    ; code <- upper
+                    ; code <- upper <|> char '@'
                     ; return (toEnum (fromEnum code - fromEnum '@'))
                     }