Data.Either.Lens
traverseLeft
traverseRight