projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2003-08-04 14:47:37 by panne]
[ghc-base.git]
/
Data
/
Ratio.hs
diff --git
a/Data/Ratio.hs
b/Data/Ratio.hs
index
5c58cd5
..
14e5f65
100644
(file)
--- a/
Data/Ratio.hs
+++ b/
Data/Ratio.hs
@@
-39,6
+39,14
@@
import Prelude
import GHC.Real -- The basic defns for Ratio
#endif
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
-- -----------------------------------------------------------------------------
-- approxRational
@@
-76,4
+84,4
@@
approxRational rat eps = simplest (rat-eps) (rat+eps)
nd'' = simplest' d' r' d r
n'' = numerator nd''
d'' = denominator nd''
nd'' = simplest' d' r' d r
n'' = numerator nd''
d'' = denominator nd''
-
+#endif