Changeset 13177 for src/Pugs/Lexer.hs

Timestamp:

09/11/06 05:46:37 (2 years ago)

Author:

audreyt

Message:

* Pugs.Lexer: Allow double-right-parens to end a "parens" structure:

(@(1))
(@::("foo"))

now all parses correctly without needing a whitespace.

Files:

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

src/Pugs/Lexer.hs

@@ -50 +50 @@
 
 parens, braces, angles, brackets :: RuleParser a -> RuleParser a
-parens p        = between (symbol "(") (symbol ")") p
-braces p        = between (symbol "{") (symbol "}") p
-angles p        = between (symbol "<") (symbol ">") p
-brackets p      = between (symbol "[") (symbol "]") p
+parens p        = between (lexeme (char '(')) (lexeme (char ')')) p
+braces p        = between (lexeme (char '{')) (lexeme (char '}')) p
+angles p        = between (lexeme (char '<')) (lexeme (char '>')) p
+brackets p      = between (lexeme (char '[')) (lexeme (char ']')) p
 
 mandatoryWhiteSpace :: RuleParser ()