Fix ValueTask.tryFinally

Author: gusty

src/FSharpPlus/Extensions/ValueTask.fs

@@ -315,18 +315,26 @@ module ValueTask =
         let mutable ran = false
         let compensation () =
             if not ran then
-                compensation ()
                 ran <- true
+                compensation ()
         try
             let task = body ()
-            if task.IsCompleted then compensation (); task
+            if task.IsCompleted then 
+                try
+                    compensation ()
+                    task
+                with e -> raise e
             else
                 let tcs = TaskCompletionSource<'T> ()
                 let f = function
-                | Succeeded r -> tcs.SetResult r
-                | Faulted exn -> tcs.SetException exn.InnerExceptions
-                | Canceled    -> tcs.SetCanceled ()
-                task.ConfigureAwait(false).GetAwaiter().UnsafeOnCompleted (fun () -> compensation (); f task)
+                    | Succeeded r -> tcs.SetResult r
+                    | Faulted aex -> tcs.SetException aex.InnerExceptions
+                    | Canceled    -> tcs.SetCanceled ()
+                task.ConfigureAwait(false).GetAwaiter().UnsafeOnCompleted (fun () ->
+                    try
+                        compensation ()
+                        f task
+                    with e -> tcs.SetException e)
                 ValueTask<'T> tcs.Task
         with _ ->
             compensation ()