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!

Commencez par lire les chemins d’API `simpleHTTP` et `getRequest` indiqués dans l’issue, puis examinez comment les erreurs de connexion refusée sont gérées et comment les résultats `Either` sont renvoyés. Reproduisez l’exemple sans aucun service à l’écoute sur localhost:81 ; c’est terminé lorsque l’échec est renvoyé sous forme de `Left` et que l’exemple affiche `Error` au lieu de lever une exception. L’issue ne mentionne aucun fichier ni test.

Rédigé par le modèle d'indexation à partir du texte de l'issue.