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

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

diff --git a/ghc/tests/array/should_run/arr008.hs b/ghc/tests/array/should_run/arr008.hs
index 30d79a6..237b0c1 100644 (file)
--- a/ghc/tests/array/should_run/arr008.hs
+++ b/ghc/tests/array/should_run/arr008.hs
@@ -8,7 +8,7 @@ import Array
 
 main = 
  let 
-  a1 = array (1,0) []
-  a2 = array (0,1) (zip [0..] ['a'..'z'])
+  a1 = array (1::Int,0) []
+  a2 = array (0::Int,1) (zip [0..] ['a'..'z'])
  in
  print (a1::Array Int Int) >> print a2