[project @ 1999-02-19 17:11:59 by simonm]

[ghc-hetmet.git] / ghc / tests / array / should_run / arr003.hs

diff --git a/ghc/tests/array/should_run/arr003.hs b/ghc/tests/array/should_run/arr003.hs
index 14a9921..b264951 100644 (file)
--- a/ghc/tests/array/should_run/arr003.hs
+++ b/ghc/tests/array/should_run/arr003.hs
@@ -12,8 +12,5 @@
 import Array
 
 main =
- let a1 = array (1,3) (zip ([1..4]) ['a'..'d']) in
+ let a1 = array (1::Int,3) (zip ([1..4]) ['a'..'d']) in
  print (a1!2)
-
-
-