module Dry::Logic::Appliable

def applied?
  !result.nil?
end

def failure?
  !success?
end

def id
  options[:id]
end

def result
  options[:result]
end

def success?
  result.equal?(true)
end

def to_ast
  if applied? && id
    [success? ? :success : :failure, [id, ast]]
  else
    ast
  end
end