Changeset 10026 for src/Pugs/Lexer.hs

Timestamp:

04/18/06 19:20:31 (3 years ago)

Author:

audreyt

Message:

* Preparing for a default-commit parser.

(also fix the Lexer overeager commit reported by Leo.)

Files:

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

src/Pugs/Lexer.hs

@@ -278 +278 @@
 
 tryRule :: String -> GenParser Char st a -> GenParser Char st a
-tryRule name action = (<?> name) $ lexeme $ action
+tryRule name action = (<?> name) $ lexeme $ try action
 
 tryVerbatimRule :: String -> GenParser tok st a -> GenParser tok st a
-tryVerbatimRule name action = (<?> name) $ action
+tryVerbatimRule name action = (<?> name) $ try action
 
 ruleScope :: RuleParser Scope
@@ -351 +351 @@
 tryChoice :: [GenParser tok st a] -- ^ List of candidate parsers
           -> GenParser tok st a
-tryChoice = choice
--- tryChoice = choice . map try
+tryChoice = choice . map try
 
 {-|