simpleHTTP raises exception on connection refused

[wahjava]

When nothing listening on localhost:81, with following code:

(simpleHTTP (getRequest "http://localhost:81/")) >>= (\r -> case r of Left _ -> putStrLn "Error"; Right _ -> putStrLn "Alright!")

instead of printing Error, I get:

*** Exception: connect: does not exist (Connection refused)

To me, and as suggested by someone in #haskell, this seems like an unexpected behaviour. I'm expecting error condition to be passed in return value.

Thanks!

[oherrala]

With pull request #102 the behaviour changes to:

λ> import Network.HTTP
λ> Network.HTTP.simpleHTTP (getRequest "http://localhost:81")
Left (ErrorMisc "connect: does not exist (Connection refused)")