Packages

data

0.2.3
0.6.0 0.5.2 0.5.1 0.5.0 0.4.7 0.4.6 0.4.5 0.4.4 0.4.3 0.4.2 0.4.1 0.3.0 0.2.6 0.2.5 0.2.4 0.2.3 0.2.2 0.2.1 0.2.0 0.1.2 0.1.1 0.1.0

Extensions to Elixir data structures

HexDocs

Current section

Files

Jump to
Readme
22 Versions
3 Dependencies
Dependants
Files
Activity
data lib data parser.ex
Raw

lib/data/parser.ex 

defmodule Data.Parser do

  alias FE.Result



  @type t(a, b) :: (any -> Result.t(a, b))



  @spec predicate((a -> boolean()), b | (a -> b)) :: t(a, b) when a: var, b: var

  def predicate(p, default) when is_function(default, 1) do

    fn x ->

      case p.(x) do

        true -> Result.ok(x)

        false -> default.(x) |> Result.error()

      end

    end

  end



  def predicate(p, default), do: predicate(p, fn _ -> default end)



  @spec one_of([a], b) :: t(a, b) when a: var, b: var

  def one_of(elements, default) do

    fn x ->

      case Enum.member?(elements, x) do

        true -> Result.ok(x)

        false -> Result.error(default)

      end

    end

  end

end