[project @ 1999-01-15 15:01:41 by simonm]

#if __HASKELL1__ > 4 import Ratio (numerator, denominator) #endif

[project @ 1999-01-15 15:01:41 by simonm]
#if __HASKELL1__ > 4 import Ratio (numerator, denominator) #endif
a92b6e47 · Simon Marlow · 29c63565 · a92b6e47
Commit a92b6e47 authored 26 years ago by Simon Marlow
--- a/ghc/compiler/basicTypes/Const.lhs
+++ b/ghc/compiler/basicTypes/Const.lhs
@@ -36,6 +36,10 @@ import CStrings		( stringToC, charToC, charToEasyHaskell )

 import Outputable
 import Util		( thenCmp )
+
+#if __HASKELL1__ > 4
+import Ratio (numerator, denominator)
+#endif
 \end{code}