fromRight' x ≡ x^?!_Right
>>> fromRight' (Right 12) 12
rightToMaybe ≡ either (const Nothing) Just
rightToMaybe ≡ preview _Right rightToMaybe x ≡ x^?_Right
>>> rightToMaybe (Left 12) Nothing
>>> rightToMaybe (Right 12) Just 12