From: simonpj <unknown>
Date: Wed, 24 Apr 2002 11:17:53 +0000 (+0000)
Subject: [project @ 2002-04-24 11:17:53 by simonpj]
X-Git-Tag: nhc98-1-18-release~1059
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=39e6db5714bfa2abbe3e0550de1eb73d245d15b1;p=ghc-base.git

[project @ 2002-04-24 11:17:53 by simonpj]
"\Oxxx" and "\Xyyy" are not octal or hexadecimal escapes in Haskell 98,
and should not be lexed as such.
---

diff --git a/Text/Read/Lex.lhs b/Text/Read/Lex.lhs
index e09f75b..6ad7ce0 100644
--- a/Text/Read/Lex.lhs
+++ b/Text/Read/Lex.lhs
@@ -176,9 +176,7 @@ lexChar =
       do s <- look
          case s of
            'o':_ -> do get; return 8
-           'O':_ -> do get; return 8
            'x':_ -> do get; return 16
-           'X':_ -> do get; return 16
            _     -> do return 10
   
   lexCntrlChar =