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

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

diff --git a/ghc/compiler/basicTypes/Const.lhs b/ghc/compiler/basicTypes/Const.lhs
index d254cbe..0b0a3d8 100644 (file)
--- 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}