Changeset 10461 for src/Pugs/Lexer.hs

Timestamp:

06/03/06 06:23:44 (2 years ago)

Author:

audreyt

Message:

* GHC 6.5-trunk now supports parsing UTF8 literals in strings,

whilst GHC 6.4 treated them as Latin1. This mean we cannot
use UTF8 literals "¥" in strings now and has to always write
"\xA5", until GHC 6.6's release.

Files:

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

src/Pugs/Lexer.hs

@@ -200 +200 @@
         return rv
     where
-    aheadWord x  '=' = not $ x `elem` (decodeUTF8 "xY¥")
+    aheadWord x  '=' = not $ x `elem` "xY\xA5" -- ¥
     aheadWord _  y   = not $ isWordAny y
     aheadSym '-' '>' = False -- XXX hardcode