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!

Empieza leyendo las rutas de API `simpleHTTP` y `getRequest` mostradas en el issue; después, inspecciona cómo se gestionan los errores de conexión rechazada y cómo se devuelven los resultados `Either`. Reproduce el ejemplo sin ningún servicio escuchando en localhost:81; se considera terminado cuando el fallo se devuelve como `Left` y el ejemplo imprime `Error` en lugar de lanzar una excepción. El issue no menciona archivos ni tests.

Escrito por el modelo de indexación a partir del texto del issue.