src/hope_result.erl

   1 -module(hope_result).
   2
   3 -export_type(
   4     [ t/2
   5     ]).
   6
   7 -export(
   8     [ pipe/2
   9     ]).
  10
  11
  12 -type t(A, B) ::
  13       {ok, A}
  14     | {error, B}
  15     .
  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.