Remove the haskell98 dependency from the array tests
authorIan Lynagh <igloo@earth.li>
Tue, 8 Feb 2011 13:47:46 +0000 (13:47 +0000)
committerIan Lynagh <igloo@earth.li>
Tue, 8 Feb 2011 13:47:46 +0000 (13:47 +0000)
15 files changed:
testsuite/tests/ghc-regress/array/should_run/arr001.hs
testsuite/tests/ghc-regress/array/should_run/arr002.hs
testsuite/tests/ghc-regress/array/should_run/arr003.hs
testsuite/tests/ghc-regress/array/should_run/arr004.hs
testsuite/tests/ghc-regress/array/should_run/arr005.hs
testsuite/tests/ghc-regress/array/should_run/arr006.hs
testsuite/tests/ghc-regress/array/should_run/arr007.hs
testsuite/tests/ghc-regress/array/should_run/arr008.hs
testsuite/tests/ghc-regress/array/should_run/arr009.hs
testsuite/tests/ghc-regress/array/should_run/arr010.hs
testsuite/tests/ghc-regress/array/should_run/arr011.hs
testsuite/tests/ghc-regress/array/should_run/arr012.hs
testsuite/tests/ghc-regress/array/should_run/arr013.hs
testsuite/tests/ghc-regress/array/should_run/arr015.hs
testsuite/tests/ghc-regress/array/should_run/arr017.hs

index d45d7b8..325ce1b 100644 (file)
@@ -1,6 +1,6 @@
 -- !!! Simple array creation
 
-import Array
+import Data.Array
 
 main =
  let a1 = array (1,3) (zip [2,3,1] ['a'..'d']) in
index 56505d6..a26a602 100644 (file)
@@ -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
index b264951..8f156ab 100644 (file)
@@ -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
index cc54395..0d7e5b4 100644 (file)
@@ -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
index 62ed12c..274f8bb 100644 (file)
@@ -2,7 +2,7 @@
 -- 
 -- array does not evaluate the elements.
 --
-import Array
+import Data.Array
 
 main =
  let 
index 8aa1ddd..52d21c6 100644 (file)
@@ -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 
index df9c34a..d4461d8 100644 (file)
@@ -2,7 +2,7 @@
 -- 
 -- empty arrays are legal, but indexing them is undefined!
 --
-import Array
+import Data.Array
 
 main =
  let 
index 237b0c1..14152c5 100644 (file)
@@ -4,7 +4,7 @@
 -- with out-of-range index is undefined.
 --
 --
-import Array
+import Data.Array
 
 main = 
  let 
index b45e9e3..290147d 100644 (file)
@@ -3,7 +3,7 @@
 -- testing the well-behavedness of 
 -- derived ops for empty and non-empty arrays
 --
-import Array
+import Data.Array
 
 main = 
  let 
index 94bf8f3..d5b7f38 100644 (file)
@@ -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]
index f4a95d1..1516b0e 100644 (file)
@@ -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]
index 895efac..231d625 100644 (file)
@@ -3,8 +3,8 @@
 --
 module Main(main) where
 
-import Array
-import Char
+import Data.Array
+import Data.Char
 
 main = 
  let 
index 08205b0..f9e63aa 100644 (file)
@@ -1,5 +1,5 @@
-import Ratio -- 1.3
-import Array -- 1.3
+import Data.Ratio -- 1.3
+import Data.Array -- 1.3
 infix 1 =:
 (=:) a b = (a,b)
 
index 46097d4..4a6e8c4 100644 (file)
@@ -3,7 +3,7 @@
 
 module Main where
 
-import Array
+import Data.Array
 
 -- All in main is only to show the strange behaviour.
 -- 
index 7728f67..18314b8 100644 (file)
@@ -2,8 +2,8 @@
 
 -- Spectral Norm benchmark
 
-import Array
-import System(getArgs)
+import Data.Array
+import System.Environment (getArgs)
 
 main = do
         --[arg] <- getArgs