[project @ 2002-02-12 11:44:54 by simonmar]

[ghc-hetmet.git] / ghc / lib / std / Ratio.lhs

diff --git a/ghc/lib/std/Ratio.lhs b/ghc/lib/std/Ratio.lhs
index f7593ab..dd18de3 100644 (file)
--- a/ghc/lib/std/Ratio.lhs
+++ b/ghc/lib/std/Ratio.lhs
@@ -1,5 +1,7 @@
+% ------------------------------------------------------------------------------
+% $Id: Ratio.lhs,v 1.7 2000/06/30 13:39:36 simonmar Exp $
 %
-% (c) The AQUA Project, Glasgow University, 1994-1999
+% (c) The University of Glasgow, 1994-2000
 %
 
 \section[Ratio]{Module @Ratio@}
@@ -80,8 +82,16 @@ approxRational rat eps       =  simplest (rat-eps) (rat+eps)
                                           nd''       =  simplest' d' r' d r
                                           n''        =  numerator nd''
                                           d''        =  denominator nd''
+
 \end{code}
 
+#else
+
+\begin{code}
+-- Hugs already has this functionally inside its prelude
+\end{code}
 
 #endif
 
+
+