connectionUtilizationRate :: IO (Gauge IO) connectionUtilizationRate = gauge $ ratio openConnectionCount $ return connectionPoolSize