class Dry::Schema::Result

def self.new(*, **)
  result = super
  yield(result) if block_given?
  result.freeze
end

def [](name)
  output[name]
end

def add_error(node)
  result_ast << node
end

def at(path, &block)
  new(Path[path].reduce(output) { |a, e| a[e] }, parent: self, &block)
end

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

def deconstruct_keys(_)
  output
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 new(output, **opts, &block)
  self.class.new(
    output,
    message_compiler: message_compiler,
    results: results,
    **opts,
    &block
  )
end

def replace(hash)
  @output = hash
  self
end

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

def success?
  result_ast.empty?
end

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

def update(hash)
  output.update(hash)
  self
end