partitionEithers' :: [Either a b] -> ([a], [b])
partitionEithers' = foldr (\a (b, c) -> (leftToList a ++ b, rightToList a ++ c)) ([], [])
partitionEithers' :: [Either a b] -> ([a], [b])
partitionEithers' = foldr (\a (b, c) -> (leftToList a ++ b, rightToList a ++ c)) ([], [])
partitionEithers' = foldr (\a (b, c) -> (leftToList a ++ b, rightToList a ++ c)) ([], [])