acquireConcurrent2 :: Assertion
acquireConcurrent2 = do
  (pool, ok) <- makePool 100
  let acquire i = RP.acquire pool i >>= \(n, release) -> release
  _ <- parallelTraverse acquire ([1..100] ++ [1..100])
  eventually ok
acquireConcurrent2 :: Assertion
acquireConcurrent2 = do
  (pool, ok) <- makePool 100
  let acquire i = RP.acquire pool i >>= \(n, release) -> release
  _ <- parallelTraverse acquire ([1..100] ++ [1..100])
  eventually ok
acquireConcurrent2 = do
  (pool, ok) <- makePool 100
  let acquire i = RP.acquire pool i >>= \(n, release) -> release
  _ <- parallelTraverse acquire ([1..100] ++ [1..100])
  eventually ok