rightToMaybe ≡ either (const Nothing) JustUsing Control.Lens:
rightToMaybe ≡ preview _Right rightToMaybe x ≡ x^?_Right
>>> rightToMaybe (Left 12) Nothing
>>> rightToMaybe (Right 12) Just 12
maybeRight (Right b) = Just b
maybeRight Left{} = Nothing