simpleHTTP raises exception on connection refused

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!

まず、issue に示されている `simpleHTTP` と `getRequest` の API パスを読み、次に接続拒否エラーがどのように処理され、`Either` の結果がどのように返されるかを確認します。localhost:81 で待ち受けているサービスがない状態で例を再現します。失敗が `Left` として返され、例が例外を発生させるのではなく `Error` を出力すれば完了です。issue ではファイルもテストも指定されていません。

索引モデルが issue の本文から書いたものです。