Documentation

A Semigroup-based counter type.

let counts = mkCounter 1 <> mkCounter 2 <> mkCounter 1 :: Counter Int
getCounts counts === Map.fromList [(1, 2), (2, 1)]

Counter that has a single occurrence for a single item.

Get counts as a map.