\x -> fromRight' (Right x) == x \x -> fromRight' (Left x) == undefined
fromRight' x ≡ x^?!_Right
>>> fromRight' (Right 12) 12
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