Add low level createConnection/disposeConnection as an alternative to withConnection

[thomasjm]

I basically needed these functions for UnliftIO reasons. I wanted to use http-client to access a WebSocket endpoint, where I need to read and write interactively, as you would with withConnection.

However, withConnection wasn't cutting it, because it runs in the IO monad, while I want to use a more general monad. IIRC I wasn't able to use MonadUnliftIO to get around it. So I think it would be nice to expose these functions, so users can do general bracket-style stuff with them.

[snoyberg]

Does this do what you're looking for?

liftedWithConnection :: MonadUnliftIO m => Request -> Manager -> (Connection -> m a) -> m a
liftedWithConnection req manager inner =
    withRunInIO $ \run -> withConnection req manager (run . inner)

[thomasjm]

Actually yes, I was able to make my monad be MonadUnliftIO and this works. Thanks!

IIRC an earlier version of my code used a monad that was incompatible with MonadUnliftIO, so maybe there's still a use-case for separate functions. But I'm happy now--sorry for the noise.