let success = function
  | Success value -> value
  | Error ex -> raise ex