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!

Inizia leggendo i percorsi API `simpleHTTP` e `getRequest` mostrati nell’issue, quindi esamina come vengono gestiti gli errori di connessione rifiutata e come vengono restituiti i risultati `Either`. Riproduci l’esempio senza alcun servizio in ascolto su localhost:81; il lavoro è completato quando il fallimento viene restituito come `Left` e l’esempio stampa `Error` invece di sollevare un’eccezione. L’issue non indica file o test.

Scritto dal modello di indicizzazione a partire dal testo della issue.