[project @ 2000-06-12 17:05:35 by panne]

[ghc-hetmet.git] / ghc / tests / io / should_run / io017.hs

diff --git a/ghc/tests/io/should_run/io017.hs b/ghc/tests/io/should_run/io017.hs
index cba9fbd..4f8ec1f 100644 (file)
--- a/ghc/tests/io/should_run/io017.hs
+++ b/ghc/tests/io/should_run/io017.hs
@@ -6,7 +6,7 @@ main =
       readLine                                          >>= \ x1 -> 
       putStr   "Enter another integer: "                >>
       readLine                                          >>= \ x2 -> 
-      putStr  ("Their sum is " ++ show (read x1+ read x2) ++ "\n")
+      putStr  ("Their sum is " ++ show (read x1 + read x2 :: Int) ++ "\n")
 
  where readLine = isEOF                                 >>= \ eof ->
                   if eof then return []