[project @ 2000-03-09 06:14:38 by andy]

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

diff --git a/ghc/lib/std/Ratio.lhs b/ghc/lib/std/Ratio.lhs
index f7593ab..cd27634 100644 (file)
--- a/ghc/lib/std/Ratio.lhs
+++ b/ghc/lib/std/Ratio.lhs
@@ -80,8 +80,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
 
+
+