-- | Convert a 'Tagged' into a list of tag-value pairs.
toAssocList :: Tagged t a -> [(Maybe t, a)]
toAssocList = tagged ((,) Nothing) ((,) . Just)
toAssocList :: Tagged t a -> [(Maybe t, a)]
toAssocList = tagged ((,) Nothing) ((,) . Just)
toAssocList = tagged ((,) Nothing) ((,) . Just)