Changeset 3297 for src/Pugs/Lexer.hs

Timestamp:

05/16/05 17:16:04 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4878

Message:

* refactor varbatimParens into Lexer.hs

Files:

• src/Pugs/Lexer.hs (modified) (2 diffs)

src/Pugs/Lexer.hs

@@ -28 +28 @@
 
     ruleScope, ruleTrait, ruleTraitName, ruleBareTrait, ruleContext,
+    verbatimParens,
 ) where
 import Pugs.Internals
@@ -282 +283 @@
 tryChoice = choice . map try
 
+verbatimParens = between (lexeme $ char '(') (char ')')
+