Ура! // обмазываюсь потихоньку, сокращаю строки кода

          ReportDataMap $!! (hm & at (ev ^. evAdId) . non mempty
                             . rdPerHourMap
                             . at (hourTS ev) . non mempty
                             . rhViews +~ 1)
          -- ReportDataMap $!! H.insertWith
          --   (\_ old -> incReportDataView (hourTS ev) old)
          --   (ev ^. evAdId)
          --   (singleViewReportData (hourTS ev))
          --   hm