[project @ 2002-10-11 11:05:20 by malcolm]

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

diff --git a/Data/Array.hs b/Data/Array.hs
index 499f791..230e94a 100644 (file)
--- a/Data/Array.hs
+++ b/Data/Array.hs
@@ -44,7 +44,9 @@ module  Data.Array
 
     ) where
 
+#ifndef __NHC__
 import Data.Dynamic
+#endif
 
 #ifdef __GLASGOW_HASKELL__
 import Data.Ix
@@ -56,5 +58,12 @@ import GHC.Err               ( undefined )
 import Hugs.Array
 #endif
 
+#ifdef __NHC__
+import Array           -- Haskell'98 arrays
+import Data.Ix
+#endif
+
+#ifndef __NHC__
 #include "Dynamic.h"
 INSTANCE_TYPEABLE2(Array,arrayTc,"Array")
+#endif