queryMetrics :: (Metric -> Maybe a) -> Statistics -> [a]
queryMetrics f =  mapMaybe f . metrics
queryMetrics :: (Metric -> Maybe a) -> Statistics -> [a]
queryMetrics f =  mapMaybe f . metrics
queryMetrics f =  mapMaybe f . metrics