Remove the haskell98 dependency from the array tests

testsuite/tests/ghc-regress/array/should_run/arr001.hs

 -- !!! Simple array creation
 
-import Array
+import Data.Array
 
 main =
  let a1 = array (1,3) (zip [2,3,1] ['a'..'d']) in

testsuite/tests/ghc-regress/array/should_run/arr002.hs

@@ -13,7 +13,7 @@
 -- strict for the indices. To test this, we do (a!1)
 -- twice, expecting to see the same value..
 --
-import Array
+import Data.Array
 
 main =
  let a1 = array (1,3) (zip (1:[1..3]) ['a'..'d']) in

testsuite/tests/ghc-regress/array/should_run/arr003.hs

@@ -9,7 +9,7 @@
 -- to have its spine be evaluated - so the indexing below
 -- should cause a failure.
 --
-import Array
+import Data.Array
 
 main =
  let a1 = array (1::Int,3) (zip ([1..4]) ['a'..'d']) in

testsuite/tests/ghc-regress/array/should_run/arr004.hs

@@ -3,7 +3,7 @@
 -- Sample Haskell implementation in the 1.3 Lib report defines
 -- this as being undefined/error.
 
-import Array
+import Data.Array
 
 main =
  let a1 = array (1,3) (zip ([1,2]) ['a'..'d']) in

testsuite/tests/ghc-regress/array/should_run/arr005.hs

@@ -2,7 +2,7 @@
 -- 
 -- array does not evaluate the elements.
 --
-import Array
+import Data.Array
 
 main =
  let 

testsuite/tests/ghc-regress/array/should_run/arr006.hs

@@ -2,7 +2,7 @@
 -- 
 -- print a couple of them to try to expose empty arrays 
 -- to a GC or two.
-import Array
+import Data.Array
 
 main =
  let 

testsuite/tests/ghc-regress/array/should_run/arr007.hs

@@ -2,7 +2,7 @@
 -- 
 -- empty arrays are legal, but indexing them is undefined!
 --
-import Array
+import Data.Array
 
 main =
  let 

testsuite/tests/ghc-regress/array/should_run/arr008.hs

@@ -4,7 +4,7 @@
 -- with out-of-range index is undefined.
 --
 --
-import Array
+import Data.Array
 
 main = 
  let 

testsuite/tests/ghc-regress/array/should_run/arr009.hs

@@ -3,7 +3,7 @@
 -- testing the well-behavedness of 
 -- derived ops for empty and non-empty arrays
 --
-import Array
+import Data.Array
 
 main = 
  let 

testsuite/tests/ghc-regress/array/should_run/arr010.hs

@@ -3,8 +3,8 @@
 --
 module Main(main) where
 
-import Array
-import Ix
+import Data.Array
+import Data.Ix
 
 hist :: (Ix a, Num b) => (a,a) -> [a] -> Array a b
 hist bnds is = accumArray (+) 0 bnds [(i,1) | i <- is , inRange bnds i]

testsuite/tests/ghc-regress/array/should_run/arr011.hs

@@ -3,8 +3,8 @@
 --
 module Main(main) where
 
-import Array
-import Ix
+import Data.Array
+import Data.Ix
 
 hist :: (Ix a, Num b) => (a,a) -> [a] -> Array a b
 hist bnds is = accumArray (+) 0 bnds [(i,1) | i <- is , inRange bnds i]

testsuite/tests/ghc-regress/array/should_run/arr012.hs

@@ -3,8 +3,8 @@
 --
 module Main(main) where
 
-import Array
-import Char
+import Data.Array
+import Data.Char
 
 main = 
  let 

testsuite/tests/ghc-regress/array/should_run/arr013.hs

-import Ratio -- 1.3
-import Array -- 1.3
+import Data.Ratio -- 1.3
+import Data.Array -- 1.3
 infix 1 =:
 (=:) a b = (a,b)
 

testsuite/tests/ghc-regress/array/should_run/arr015.hs

@@ -3,7 +3,7 @@
 
 module Main where
 
-import Array
+import Data.Array
 
 -- All in main is only to show the strange behaviour.
 -- 

testsuite/tests/ghc-regress/array/should_run/arr017.hs

@@ -2,8 +2,8 @@
 
 -- Spectral Norm benchmark
 
-import Array
-import System(getArgs)
+import Data.Array
+import System.Environment (getArgs)
 
 main = do
         --[arg] <- getArgs