X-Git-Url: https://git.xandkar.net/?p=hope.git;a=blobdiff_plain;f=src%2Fhope_fun.erl;h=df0d786e18799a50c74a3a815f50cd7dd75a78ef;hp=96a39cda7fdf7be7f8f79d2ae8d3bcaac859d77a;hb=cb14ad76f3cc386bce964e822733e5cb9e011ed8;hpb=0b6ed6177fd85b5dd1b6ceadb9c2e2560c6597d2

diff --git a/src/hope_fun.erl b/src/hope_fun.erl
index 96a39cd..df0d786 100644
--- a/src/hope_fun.erl
+++ b/src/hope_fun.erl
@@ -6,6 +6,7 @@
     , compose/1  % alias for compose_right/1
     , compose_right/1
     , compose_left/1
+    , thread/2
     ]).
 
 -spec id(A) ->
@@ -41,6 +42,12 @@ compose_right(Fs) ->
 compose_left(Fs) ->
     compose_given_fold(Fs, fun lists:foldl/3).
 
+-spec thread([fun((A) -> B)], A) ->
+    B.
+thread(Fs, X) ->
+    F = compose_left(Fs),
+    F(X).
+
 
 %% ============================================================================