[project @ 1999-05-13 10:52:55 by sof]

[ghc-hetmet.git] / ghc / lib / std / PrelRead.lhs

diff --git a/ghc/lib/std/PrelRead.lhs b/ghc/lib/std/PrelRead.lhs
index c298bcb..a03963b 100644 (file)
--- a/ghc/lib/std/PrelRead.lhs
+++ b/ghc/lib/std/PrelRead.lhs
@@ -269,8 +269,8 @@ lexLitChar ('\\':s)     =  do
              mzero
            else
              case base of
-                8  -> return ('o':num', res)
-                16 -> return ('x':num', res)
+                8  -> return ('o':num, res)
+                16 -> return ('x':num, res)
                 _  -> return (num, res)
 
        toAnInt base xs = foldl (\ acc n -> acc*base + n) 0 (map digitToInt xs)