Skip to content

Commit

Permalink
Formatting
Browse files Browse the repository at this point in the history
  • Loading branch information
TheAngryByrd committed Jul 27, 2023
1 parent fb73003 commit 97d190d
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion src/FsAutoComplete/LspServers/AdaptiveFSharpLspServer.fs
Original file line number Diff line number Diff line change
Expand Up @@ -981,13 +981,14 @@ type AdaptiveFSharpLspServer
| :? ObjectDisposedException as e when e.Message.Contains("CancellationTokenSource has been disposed") ->
// ignore if already cancelled
()

[<return: Struct>]
let rec (|Cancelled|_|) (e: exn) =
match e with
| :? TaskCanceledException -> ValueSome()
| :? OperationCanceledException -> ValueSome()
| :? System.AggregateException as aex ->
if aex. InnerExceptions.Count = 1 then
if aex.InnerExceptions.Count = 1 then
(|Cancelled|_|) aex.InnerException
else
ValueNone
Expand Down

0 comments on commit 97d190d

Please sign in to comment.