class Dry::Schema::Result

def self.new(*args)
  result = super
  yield(result)
  result.freeze
end

def [](name)
  output[name]
end

def concat(other)
  results.concat(other)
  result_ast.concat(other.map(&:to_ast))
  self
end

def error?(spec)
  message_set.any? { |msg| Path[msg.path].include?(Path[spec]) }
end

def errors(options = EMPTY_HASH)
  message_set(options)
end

def failure?
  !success?
end

def inspect
  "#<#{self.class}#{to_h.inspect} errors=#{errors.to_h.inspect}>"
end

def key?(name)
  output.key?(name)
end

def message_set(options = EMPTY_HASH)
  message_compiler.with(options).(result_ast)
end

def replace(hash)
  @output = hash
  self
end

def result_ast
  @result_ast ||= results.map(&:to_ast)
end

def success?
  results.empty?
end

def to_monad
  if success?
    Success(self)
  else
    Failure(self)
  end
end