Move Async module from ExceptionsHandler.fs to its own file. Add awaitTasksWithExceptions to display inner exceptions that are usually wrapped in AggregateExceptions.

Author: Jamil Maqdis Anton

src/Async.fs

@@ -0,0 +1,33 @@
+namespace SqlStreamStore.FSharp
+
+module Async =
+
+    open System.Threading.Tasks
+
+    let map f m = async.Bind(m, (f >> async.Return))
+
+    let awaitTaskWithInnerException (task: Task<'T>): Async<'T> =
+        Async.FromContinuations(fun (suc, exn, _cln) ->
+            task.ContinueWith(fun (t: Task<'T>) ->
+                if t.IsFaulted
+                then if t.Exception.InnerExceptions.Count = 1 then
+                         exn t.Exception.InnerExceptions.[0]
+                     else
+                         exn t.Exception
+                elif t.IsCanceled
+                then exn (TaskCanceledException())
+                else suc t.Result)
+            |> ignore)
+
+    let awaitTaskWithInnerException' (task: Task): Async<unit> =
+        Async.FromContinuations(fun (suc, exn, _cln) ->
+            task.ContinueWith(fun (t: Task) ->
+                if t.IsFaulted
+                then if t.Exception.InnerExceptions.Count = 1 then
+                         exn t.Exception.InnerExceptions.[0]
+                     else
+                         exn t.Exception
+                elif t.IsCanceled
+                then exn (TaskCanceledException())
+                else suc ())
+            |> ignore)

src/SqlStreamStore.FSharp.fsproj

@@ -12,6 +12,7 @@
     </PropertyGroup>
 
     <ItemGroup>
+        <Compile Include="Async.fs" />
         <Compile Include="ExceptionsHandler.fs" />
         <Compile Include="Types.fs" />
         <Compile Include="AppendRaw.fs" />