[hope.git] / src / hope_result.erl

-module(hope_result).

-export_type(
    [ t/2
    ]).

-export(
    [ pipe/2
    ]).


-type t(A, B) ::
      {ok, A}
    | {error, B}
    .


pipe([]    , X) -> X;
pipe([F|Fs], X) ->
    case F(X)
    of  {error, _}=E -> E
    ;   {ok, Y}      -> pipe(Fs, Y)
    end.
Commit	Line	Data
6731749b SK	1	-module(hope_result).
6731749b SK	2
3b156801 SK	3	-export_type(
	4	[ t/2
	5	]).
6731749b	6
3b156801 SK	7	-export(
	8	[ pipe/2
	9	]).
6731749b SK	10
6731749b SK	11
3b156801 SK	12	-type t(A, B) ::
	13	{ok, A}
	14	\| {error, B}
	15	.
6731749b SK	16
	17
	18	pipe([] , X) -> X;
	19	pipe([F\|Fs], X) ->
	20	case F(X)
	21	of {error, _}=E -> E
	22	; {ok, Y} -> pipe(Fs, Y)
	23	end.