readRequestCounter :: Bool -> (Application -> IO a) -> Int -> IO Int64
readRequestCounter measure action times = do
  waiMetrics <- testServer measure action times
  Counter.read (requestCounter waiMetrics)

-- Send a GET request to a WAI Application
readRequestCounter :: Bool -> (Application -> IO a) -> Int -> IO Int64
readRequestCounter measure action times = do
  waiMetrics <- testServer measure action times
  Counter.read (requestCounter waiMetrics)

-- Send a GET request to a WAI Application
readRequestCounter measure action times = do
  waiMetrics <- testServer measure action times
  Counter.read (requestCounter waiMetrics)

-- Send a GET request to a WAI Application