-- | Similar to 'discardTags', but discards the content instead of the tags
-- and uses the tags in their place.
joinTags :: Tagged a a -> [a]
joinTags = tagged id (curry fst)
joinTags :: Tagged a a -> [a]
joinTags = tagged id (curry fst)
joinTags = tagged id (curry fst)