Add helper functions for Async computations

Jamil Maqdis Anton · Jamil Maqdis Anton · commit 1040d5173a0b · 2020-10-14T20:14:57.000+02:00
diff --git a/src/AsyncExtras.fs b/src/AsyncExtras.fs
@@ -0,0 +1,5 @@
+module Async
+
+let bind f m = async.Bind(m, f)
+
+let map f m = m |> bind (f >> async.Return)
