doRequestsThreadPool :: Manager -> IO ()
doRequestsThreadPool manager = do
    (inputChan, outputChan) <- threadPoolIO concurrentConnectionCount doRequest
    _ <- writeList2Chan inputChan $ zip (repeat manager) allRequestNumbers
    mapM_ (\_ -> readChan outputChan) allRequestNumbers

-------------------------------------------------------------------
-- main
-------------------------------------------------------------------
doRequestsThreadPool :: Manager -> IO ()
doRequestsThreadPool manager = do
    (inputChan, outputChan) <- threadPoolIO concurrentConnectionCount doRequest
    _ <- writeList2Chan inputChan $ zip (repeat manager) allRequestNumbers
    mapM_ (\_ -> readChan outputChan) allRequestNumbers

-------------------------------------------------------------------
-- main
-------------------------------------------------------------------
doRequestsThreadPool manager = do
    (inputChan, outputChan) <- threadPoolIO concurrentConnectionCount doRequest
    _ <- writeList2Chan inputChan $ zip (repeat manager) allRequestNumbers
    mapM_ (\_ -> readChan outputChan) allRequestNumbers

-------------------------------------------------------------------
-- main
-------------------------------------------------------------------