Блять, ну реально ж jQuery какой-то

countQuartilesMap :: HashMap UnixTime ReportHourRow
                  -> HashMap QuartileNumber Integer
countQuartilesMap hm =
  H.fromListWith (+)
    (hm ^.. traverse . rhQuartiles . to H.toList . traverse)

Для тех, кому интересно -- у первой мапы берёт значения, у каждого берёт "поле" rhQuartiles, значение превращает в список пар ключ-значение (H.toList), потом делает concat (из [[a]] в [a]). Ну и поверху создаётся ключ-значение, дубликаты значений складываются.

Охуенно // надеюсь работает