@@ -202,7 +202,8 @@ bindM2 f ma mb = join (f <$> ma <*> mb)
202202-- settings in IO. If you've got your own monad transformer stack, you
203203-- should use 'runBH' directly.
204204withBH :: 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
206207 let env = BHEnv { bhServer = s
207208 , bhManager = mgr }
208209 runBH env f