From 422fcdcaa000f54df311e3f1d9150d400ec9f4ea Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Mon, 12 Jun 2000 17:05:35 +0000
Subject: [PATCH] [project @ 2000-06-12 17:05:35 by panne] Added type signature
to resolve ambiguity.
---
ghc/tests/io/should_run/io017.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/tests/io/should_run/io017.hs b/ghc/tests/io/should_run/io017.hs
index cba9fbd4cc71..4f8ec1f869f0 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 []
--
GitLab