Remove unwrapper

Author: gusty

src/FSharpPlus/Extensions/Task.fs

@@ -340,8 +340,7 @@ module Task =
                 | Canceled    -> canceled
             else
                 task.ContinueWith(fun (x: Task<'T>) -> tryWith (fun () -> x) compensation).Unwrap ()
-        | Error (:? AggregateException as exn) -> compensation (unwrapException exn)
-        | Error exn                            -> compensation exn
+        | Error exn -> compensation exn
 
     [<ObsoleteAttribute("Swap parameters")>]
     let rec tryFinally (body: unit -> Task<'T>) (compensation : unit -> unit) : Task<'T> =

src/FSharpPlus/Extensions/ValueTask.fs

@@ -314,8 +314,7 @@ module ValueTask =
                 | Canceled    -> canceled
             else
                 task.AsTask().ContinueWith(fun (x: Task<'T>) -> Task.tryWith (compensation >> fun x -> x.AsTask()) (fun () -> x)).Unwrap () |> ValueTask<'T>
-        | Error (:? AggregateException as exn) -> compensation (unwrapException exn)
-        | Error exn                            -> compensation exn
+        | Error exn -> compensation exn
 
 
     /// Used to de-sugar try .. finally .. blocks in Computation Expressions.