Move AsyncExtras.fs content to ExceptionsHandler.fs

Author: Jamil Maqdis Anton

src/AsyncExtras.fs

@@ -1,8 +1,14 @@
-module ExceptionsHandler
+namespace SqlStreamStore.Fsharp
 
-let simpleExceptionHandler (op: Async<'res>): Async<Result<'res, string>> =
-        op
-        |> Async.Catch
-        |> Async.map (function
-            | Choice1Of2 response -> Ok response
-            | Choice2Of2 exn -> Error exn.Message)
+module Async =
+    let bind f m = async.Bind(m, f)
+    let map f m = m |> bind (f >> async.Return)
+
+module ExceptionsHandler =
+
+    let simpleExceptionHandler (op: Async<'res>): Async<Result<'res, string>> =
+            op
+            |> Async.Catch
+            |> Async.map (function
+                | Choice1Of2 response -> Ok response
+                | Choice2Of2 exn -> Error exn.Message)