From 422fcdcaa000f54df311e3f1d9150d400ec9f4ea Mon Sep 17 00:00:00 2001 From: panne 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 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 [] -- 1.7.10.4