fromRight b ≡ either (const b) id
>>> fromRight "hello" (Right "world") "world"
>>> fromRight "hello" (Left 42) "hello"
fromRight' x ≡ x^?!_Right
>>> fromRight' (Right 12) 12