Commit 422fcdca authored by panne's avatar panne
Browse files

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

Added type signature to resolve ambiguity.
parent 7ef256ca
......@@ -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 []
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment