[project @ 2002-04-24 11:17:53 by simonpj]

[ghc-base.git] / Text / Read / Lex.lhs

diff --git a/Text/Read/Lex.lhs b/Text/Read/Lex.lhs
index e09f75b..6ad7ce0 100644 (file)
--- 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 =