Changeset 14105 for src/Pugs/Lexer.hs

Timestamp:

10/09/06 17:26:09 (2 years ago)

Author:

audreyt

Message:

r14977@T: audreyt | 2006-10-09 15:19:34 +0800

• Pugs.Lexer: Stylistic tweak.

Files:

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

src/Pugs/Lexer.hs

@@ -205 +205 @@
     let lastCh = last s
         ahead  = if isWordAny lastCh then aheadWord else aheadSym
-    choice [ lookAhead (satisfy (ahead lastCh)), eof >> return ' ' ]
+    lookAhead (satisfy (ahead lastCh)) <|> (eof >> return ' ')
     whiteSpace
     return rv