Incomplete support for graded monad in expected

[Bronek]

Currently expected only supports type-calculation of the graded monad only if either side of the expected (that is value or error) agrees with the fixed type. This is not correct; graded monad support needs to work also if both types do not match, as long as they are the sum-of-types kind of type.