[project @ 1999-10-29 01:16:48 by andy]

[ghc-hetmet.git] / ghc / lib / std / Ix.lhs

diff --git a/ghc/lib/std/Ix.lhs b/ghc/lib/std/Ix.lhs
index 1715448..da7a5e4 100644 (file)
--- a/ghc/lib/std/Ix.lhs
+++ b/ghc/lib/std/Ix.lhs
@@ -29,6 +29,7 @@ module Ix
     -- Implementation checked wrt. Haskell 98 lib report, 1/99.
     ) where
 
+#ifndef __HUGS__
 import {-# SOURCE #-} PrelErr ( error )
 import PrelTup
 import PrelBase
@@ -267,3 +268,10 @@ rangeSize b@(_l,h) | inRange b h = unsafeIndex b h + 1
 -- Here l<h, but the second index ranges from 2..1 and
 -- hence is empty
 \end{code}
+
+\begin{code}
+#else
+-- This module is empty; Ix is currently defined in the prelude, but should
+-- eventually be moved to this library file instead.
+#endif
+\end{code}