[project @ 2002-10-14 10:06:28 by ross]

[ghc-base.git] / Data / Array.hs

diff --git a/Data/Array.hs b/Data/Array.hs
index 499f791..97f4006 100644 (file)
--- a/Data/Array.hs
+++ b/Data/Array.hs
@@ -44,10 +44,13 @@ module  Data.Array
 
     ) where
 
+#ifndef __NHC__
 import Data.Dynamic
+#endif
 
-#ifdef __GLASGOW_HASKELL__
 import Data.Ix
+
+#ifdef __GLASGOW_HASKELL__
 import GHC.Arr         -- Most of the hard work is done here
 import GHC.Err         ( undefined )
 #endif
@@ -56,5 +59,11 @@ import GHC.Err               ( undefined )
 import Hugs.Array
 #endif
 
+#ifdef __NHC__
+import Array           -- Haskell'98 arrays
+#endif
+
+#ifndef __NHC__
 #include "Dynamic.h"
 INSTANCE_TYPEABLE2(Array,arrayTc,"Array")
+#endif