-----------------------------------------------------------------------------
---
+-- |
-- Module : Data.Ratio
-- Copyright : (c) The University of Glasgow 2001
--- License : BSD-style (see the file libraries/core/LICENSE)
+-- License : BSD-style (see the file libraries/base/LICENSE)
--
-- Maintainer : libraries@haskell.org
-- Stability : provisional
-- Portability : portable
--
--- $Id: Ratio.hs,v 1.1 2001/06/28 14:15:02 simonmar Exp $
---
-- Standard functions on rational numbers
--
-----------------------------------------------------------------------------
import GHC.Real -- The basic defns for Ratio
#endif
+#ifdef __HUGS__
+import Hugs.Prelude(Ratio(..), (%), numerator, denominator)
+#endif
+
+#ifdef __NHC__
+import Ratio (Ratio(..), (%), numerator, denominator, approxRational)
+#else
+
-- -----------------------------------------------------------------------------
-- approxRational
nd'' = simplest' d' r' d r
n'' = numerator nd''
d'' = denominator nd''
-
+#endif