X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fghc%2FPrelNum.lhs;fp=ghc%2Flib%2Fghc%2FPrelNum.lhs;h=434406021e8374fd375cfeb5ee549e951628a135;hb=9dd6e1c216993624a2cd74b62ca0f0569c02c26b;hp=041214df1d9c38f50f7727d603e9cd238e77151a;hpb=ff14742cc328f19b9bf7c04d9a69408e641cf64a;p=ghc-hetmet.git

diff --git a/ghc/lib/ghc/PrelNum.lhs b/ghc/lib/ghc/PrelNum.lhs
index 041214d..4344060 100644
--- a/ghc/lib/ghc/PrelNum.lhs
+++ b/ghc/lib/ghc/PrelNum.lhs
@@ -192,7 +192,7 @@ instance  Integral Int	where
     a@(I# _) `quotRem` b@(I# _)	= (a `quotInt` b, a `remInt` b)
     -- OK, so I made it a little stricter.  Shoot me.  (WDP 94/10)
 
-    -- following chks for zero divisor are non-standard (WDP)
+    -- Following chks for zero divisor are non-standard (WDP)
     a `quot` b	=  if b /= 0
 		   then a `quotInt` b
 		   else error "Integral.Int.quot{PreludeCore}: divide by 0\n"
@@ -716,7 +716,7 @@ numericEnumFromThenTo n m p = takeWhile (if m >= n then (<= p) else (>= p))
 %*********************************************************
 
 \begin{code}
-data  (Integral a)	=> Ratio a = !a :% !a  deriving (Eq)
+data  (Eval a, Integral a)	=> Ratio a = !a :% !a  deriving (Eq)
 type  Rational		=  Ratio Integer
 \end{code}