-- * Helper functions

-- | Add a tag to a tagmap.
addTag :: TagMap -> String -> TagMap
addTag t s = Map.insertWith (+) s 1 t
addTag :: TagMap -> String -> TagMap
addTag t s = Map.insertWith (+) s 1 t
addTag t s = Map.insertWith (+) s 1 t