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!

Bắt đầu bằng cách đọc các đường dẫn API `simpleHTTP` và `getRequest` được nêu trong issue, sau đó kiểm tra cách các lỗi kết nối bị từ chối được xử lý và cách các kết quả `Either` được trả về. Tái hiện ví dụ khi không có dịch vụ nào đang lắng nghe trên localhost:81; hoàn thành khi lỗi được trả về dưới dạng `Left` và ví dụ in ra `Error` thay vì phát sinh một ngoại lệ. Issue không nêu tên tệp hoặc bài kiểm thử nào.

Do mô hình lập chỉ mục viết ra từ nội dung của issue.