The
fromRight' function extracts the element out of a
Right and throws an error if its argument is
Left. Much
like
fromJust, using this function in polished code is
usually a bad idea.
\x -> fromRight' (Right x) == x
\x -> fromRight' (Left x) == undefined