Packages

res

1.0.0
1.0.0

(OK fork) Elegant error/exception handling in Elixir, with result monads.

HexDocs

Current section

Files

Jump to
Readme
1 Version
0 Dependencies
Dependants
Files
Activity
res lib result pipe.ex
Raw

lib/result/pipe.ex 

defmodule Result.Pipe do

  defmacro lhs ~> ({call, _, _} = anon) when call in [:fn, :&] do

    quote do

      Result.map(unquote(lhs), unquote(anon))

    end

  end



  defmacro lhs ~> {call, line, args} do

    value = quote do: value

    args = [value | args || []]



    quote do

      Result.map(unquote(lhs), fn unquote(value) -> unquote({call, line, args}) end)

    end

  end



  defmacro lhs ~>> ({call, _, _} = anon) when call in [:fn, :&] do

    quote do

      Result.flat_map(unquote(lhs), unquote(anon))

    end

  end



  defmacro lhs ~>> {call, line, args} do

    value = quote do: value

    args = [value | args || []]



    quote do

      Result.flat_map(unquote(lhs), fn unquote(value) -> unquote({call, line, args}) end)

    end

  end

end