Add result type module and define pipe.

[hope.git] / src / hope_result.erl

diff --git a/src/hope_result.erl b/src/hope_result.erl
new file mode 100644 (file)
index 0000000..405f2e0
--- /dev/null
+++ b/src/hope_result.erl
@@ -0,0 +1,18 @@
+-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.