diff options
| author | ross <unknown> | 2002-09-09 15:30:58 +0000 |
|---|---|---|
| committer | ross <unknown> | 2002-09-09 15:30:58 +0000 |
| commit | a97b83b1830d0726369f9fd86afb1206e3e731ab (patch) | |
| tree | 86354ec727692f42a653a35816570db4c0a574e3 /libraries/base/Data/Ratio.hs | |
| parent | 0a678e9bd20434ba5b4b4486630d394867bb401c (diff) | |
| download | haskell-a97b83b1830d0726369f9fd86afb1206e3e731ab.tar.gz | |
[project @ 2002-09-09 15:30:58 by ross]
Hugs-only changes: explicit imports + use approxRational.
Diffstat (limited to 'libraries/base/Data/Ratio.hs')
| -rw-r--r-- | libraries/base/Data/Ratio.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/libraries/base/Data/Ratio.hs b/libraries/base/Data/Ratio.hs index 37dd821cc2..8a5b55f1b3 100644 --- a/libraries/base/Data/Ratio.hs +++ b/libraries/base/Data/Ratio.hs @@ -39,7 +39,10 @@ import Prelude import GHC.Real -- The basic defns for Ratio #endif -#ifndef __HUGS__ +#ifdef __HUGS__ +import Hugs.Prelude(Ratio(..), (%), numerator, denominator) +#endif + -- ----------------------------------------------------------------------------- -- approxRational @@ -77,4 +80,3 @@ approxRational rat eps = simplest (rat-eps) (rat+eps) nd'' = simplest' d' r' d r n'' = numerator nd'' d'' = denominator nd'' -#endif /* __HUGS__ */ |