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