# credo:disable-for-this-file

defmodule Funx.Monoid.Predicate.Any do
  @moduledoc """
  A Monoid implementation for combining predicates using logical OR.
  """
  defstruct value: &Funx.Monoid.Predicate.Any.default_pred?/1

  def default_pred?(_), do: false
end

defimpl Funx.Monoid, for: Funx.Monoid.Predicate.Any do
  alias Funx.Monoid.Predicate.Any

  def empty(_), do: %Any{}

  def append(%Any{} = p1, %Any{} = p2) do
    %Any{
      value: fn value -> p1.value.(value) or p2.value.(value) end
    }
  end

  def wrap(%Any{}, value) when is_function(value, 1) do
    %Any{value: value}
  end

  def unwrap(%Any{value: value}), do: value
end