From: sof <unknown>
Date: Thu, 13 May 1999 10:52:55 +0000 (+0000)
Subject: [project @ 1999-05-13 10:52:55 by sof]
X-Git-Tag: Approximately_9120_patches~6215
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f4a9632f1f3b6bf45e068a5725116ab35abbf8e1;p=ghc-hetmet.git

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

diff --git a/ghc/lib/std/PrelRead.lhs b/ghc/lib/std/PrelRead.lhs
index c298bcb..a03963b 100644
--- 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)