Refactor some variable names to help readability

Author: Jamil Maqdis Anton

src/Async.fs

@@ -7,27 +7,27 @@ module Async =
     let map f m = async.Bind(m, (f >> async.Return))
 
     let awaitTaskWithInnerException (task: Task<'T>): Async<'T> =
-        Async.FromContinuations(fun (suc, exn, _cln) ->
+        Async.FromContinuations(fun (success, exception', _cancellationToken) ->
             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)
+                if t.IsFaulted then
+                    if t.Exception.InnerExceptions.Count = 1
+                    then exception' t.Exception.InnerExceptions.[0]
+                    else exception' t.Exception
+                elif t.IsCanceled then
+                    exception' (TaskCanceledException())
+                else
+                    success t.Result)
             |> ignore)
 
     let awaitTaskWithInnerException' (task: Task): Async<unit> =
-        Async.FromContinuations(fun (suc, exn, _cln) ->
+        Async.FromContinuations(fun (success, exception', _cancellationToken) ->
             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 ())
+                if t.IsFaulted then
+                    if t.Exception.InnerExceptions.Count = 1
+                    then exception' t.Exception.InnerExceptions.[0]
+                    else exception' t.Exception
+                elif t.IsCanceled then
+                    exception' (TaskCanceledException())
+                else
+                    success ())
             |> ignore)