@@ -202,7 +202,8 @@ bindM2 f ma mb = join (f <$> ma <*> mb)
202-- settings in IO. If you've got your own monad transformer stack, you
202-- settings in IO. If you've got your own monad transformer stack, you
203-- should use 'runBH' directly.
203-- should use 'runBH' directly.
204withBH :: ManagerSettings -> Server -> BH IO a -> IO a
204withBH :: ManagerSettings -> Server -> BH IO a -> IO a
205−withBH ms s f = withManager ms $ \mgr -> do
205+withBH ms s f = do
206+ mgr <- newManager ms
206 let env = BHEnv { bhServer = s
207 let env = BHEnv { bhServer = s
207 , bhManager = mgr }
208 , bhManager = mgr }
208 runBH env f
209 runBH env f