withHttp :: (Manager -> ResourceT IO a) -> IO a
withHttp action = runResourceT $ liftIO (newManager tlsManagerSettings) >>= action
withHttp :: (Manager -> ResourceT IO a) -> IO a
withHttp action = runResourceT $ liftIO (newManager tlsManagerSettings) >>= action
withHttp action = runResourceT $ liftIO (newManager tlsManagerSettings) >>= action