From 81ef48b033c9d5bc6ee6e257ec51141e659b8532 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Mon, 9 Sep 2002 15:30:58 +0000
Subject: [PATCH] [project @ 2002-09-09 15:30:58 by ross] Hugs-only changes:
 explicit imports + use approxRational.

---
 Data/Ix.hs    |    4 ++++
 Data/Ratio.hs |    6 ++++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/Data/Ix.hs b/Data/Ix.hs
index c9ebe92..b947466 100644
--- a/Data/Ix.hs
+++ b/Data/Ix.hs
@@ -78,3 +78,7 @@ import Prelude
 #ifdef __GLASGOW_HASKELL__
 import GHC.Arr
 #endif
+
+#ifdef __HUGS__
+import Hugs.Prelude( Ix(..) )
+#endif
diff --git a/Data/Ratio.hs b/Data/Ratio.hs
index 37dd821..8a5b55f 100644
--- a/Data/Ratio.hs
+++ b/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__ */
-- 
1.7.10.4