[project @ 2002-07-04 16:22:02 by simonmar]

[ghc-base.git] / GHC / Real.lhs

diff --git a/GHC/Real.lhs b/GHC/Real.lhs
index be30073..c2e73c0 100644 (file)
--- a/GHC/Real.lhs
+++ b/GHC/Real.lhs
@@ -40,6 +40,10 @@ default ()           -- Double isn't available yet,
 
 \begin{code}
 data  (Integral a)     => Ratio a = !a :% !a  deriving (Eq)
+
+-- | Arbitrary-precision rational numbers, represented as a ratio of
+-- two 'Integer' values.  A rational number may be constructed using
+-- the '%' operator.
 type  Rational         =  Ratio Integer
 
 infinity, notANumber :: Rational