From 61120c8b3a3959ec746accdd3562b04939c62ff9 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 23 Nov 2001 16:20:08 +0000
Subject: [PATCH] [project @ 2001-11-23 16:20:08 by simonpj] Put spaces round
 %, in preparation for splittable name supplies

---
 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 b91cb96..2b060fc 100644
--- a/ghc/lib/std/PrelRead.lhs
+++ b/ghc/lib/std/PrelRead.lhs
@@ -1,5 +1,5 @@
 % ------------------------------------------------------------------------------
-% $Id: PrelRead.lhs,v 1.21 2001/08/28 09:55:35 simonmar Exp $
+% $Id: PrelRead.lhs,v 1.22 2001/11/23 16:20:08 simonpj Exp $
 %
 % (c) The University of Glasgow, 1994-2000
 %
@@ -371,7 +371,7 @@ instance  (Integral a, Read a)  => Read (Ratio a)  where
 				(x,s)   <- reads r
 				("%",t) <- lex s
 				(y,u)   <- reads t
-				return (x%y,u))
+				return (x % y,u))
 
 instance  (Read a) => Read [a]  where
     readsPrec _         = readList
-- 
1.7.10.4