rights' :: [Either a b] -> [b]
rights' = foldr (\a b -> rightToList a ++ b) []
rights' :: [Either a b] -> [b]
rights' = foldr (\a b -> rightToList a ++ b) []
rights' = foldr (\a b -> rightToList a ++ b) []