Changeset 10011 for src/Pugs/Lexer.hs

Timestamp:

04/18/06 11:15:18 (3 years ago)

Author:

audreyt

Message:

* also fix the same assignment ops in the lexer

Files:

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

src/Pugs/Lexer.hs

@@ -146 +146 @@
     aheadSym '-' '>' = False -- XXX hardcode
     aheadSym '!' '~' = False -- XXX hardcode
-    aheadSym x   '=' = not (x `elem` "!~+-*&/|.%^")
+    aheadSym x   '=' = not (x `elem` "!~+-*&/|.%^<>")
     aheadSym '?' y   = not (y `elem` "&|^?")
     aheadSym '+' y   = not (y `elem` "&|^+")
@@ -278 +278 @@
 
 tryRule :: String -> GenParser Char st a -> GenParser Char st a
-tryRule name action = (<?> name) $ lexeme $ try action
+tryRule name action = (<?> name) $ lexeme $ action
 
 tryVerbatimRule :: String -> GenParser tok st a -> GenParser tok st a
-tryVerbatimRule name action = (<?> name) $ try action
+tryVerbatimRule name action = (<?> name) $ action
 
 ruleScope :: RuleParser Scope
@@ -351 +351 @@
 tryChoice :: [GenParser tok st a] -- ^ List of candidate parsers
           -> GenParser tok st a
-tryChoice = choice . map try
+tryChoice = choice
+-- tryChoice = choice . map try
 
 {-|