record PoolManager : Type -> TypeMkPoolManager : IORef (List (Hostname, Pool e)) -> Nat -> Nat -> (String -> CertificateCheck IO) -> PoolManager e.certificate_checker : PoolManager e -> String -> CertificateCheck IO.max_per_site_connections : PoolManager e -> Nat.max_total_connections : PoolManager e -> Nat.pools : PoolManager e -> IORef (List (Hostname, Pool e))Scheduler e IO (PoolManager e)new_pool_manager : HasIO io => Nat -> Nat -> (String -> CertificateCheck IO) -> io (PoolManager e)total_active_connections : Protocol -> PoolManager e -> IO Nat