X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2FPrelNum.lhs;h=4f09ebdd31b318f0b214c5c65db5caca47bb7824;hb=376e8f4753e3c4d4e25db9a751771268e5b2223c;hp=b565a9893bc4a40b5739f1c465205c959d400989;hpb=fc34a5350e9bdba3186ba9c3b3944c33bd7081fb;p=ghc-hetmet.git

diff --git a/ghc/lib/std/PrelNum.lhs b/ghc/lib/std/PrelNum.lhs
index b565a98..4f09ebd 100644
--- a/ghc/lib/std/PrelNum.lhs
+++ b/ghc/lib/std/PrelNum.lhs
@@ -339,7 +339,7 @@ their greatest common divisor.
 
 \begin{code}
 reduce ::  (Integral a) => a -> a -> Ratio a
-reduce _ 0		=  error "{Ratio.%}: zero denominator"
+reduce _ 0		=  error "Ratio.%: zero denominator"
 reduce x y		=  (x `quot` d) :% (y `quot` d)
 			   where d = gcd x y
 \end{code}