From f4a9632f1f3b6bf45e068a5725116ab35abbf8e1 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 13 May 1999 10:52:55 +0000
Subject: [PATCH] [project @ 1999-05-13 10:52:55 by sof] wibble

---
 ghc/lib/std/PrelRead.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)
-- 
1.7.10.4