-- | Create an association list of tags and values, discarding the tagless
-- values.
listPairs :: Tagged t a -> [(t, a)]
listPairs = toList . runTagged
listPairs :: Tagged t a -> [(t, a)]
listPairs = toList . runTagged
listPairs = toList . runTagged