From: panne <unknown>
Date: Mon, 12 Jun 2000 17:05:35 +0000 (+0000)
Subject: [project @ 2000-06-12 17:05:35 by panne]
X-Git-Tag: Approximately_9120_patches~4271
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=422fcdcaa000f54df311e3f1d9150d400ec9f4ea;p=ghc-hetmet.git

[project @ 2000-06-12 17:05:35 by panne]
Added type signature to resolve ambiguity.
---

diff --git a/ghc/tests/io/should_run/io017.hs b/ghc/tests/io/should_run/io017.hs
index cba9fbd..4f8ec1f 100644
--- 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 []