class Steep::Subtyping::Result::Base

def else
  if failure?
    yield self
  else
    self
  end
end

def failure?
  !success?
end

def then
  if success?
    yield self
  else
    self
  end
end