Changeset 8006 for src/Pugs/Lexer.hs

Timestamp:

11/24/05 19:56:11 (3 years ago)

Author:

autrijus

Message:

* Pugs.Lexer - finish refactoring into maybeVerbatimBrackets.

Files:

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

src/Pugs/Lexer.hs

@@ -219 +219 @@
     based ch num p = do
         char ch
-        let p' = number num p
-        choice [ verbatimBrackets p', p' ]
+        maybeVerbatimBrackets (number num p)
 
 number :: Integer -> GenParser tok st Char -> GenParser tok st Integer