Skip to content

Commit

Permalink
Fantomas
Browse files Browse the repository at this point in the history
  • Loading branch information
auduchinok committed Jan 28, 2025
1 parent a7b048b commit d68c21f
Showing 1 changed file with 2 additions and 4 deletions.
6 changes: 2 additions & 4 deletions src/Compiler/Utilities/Cancellable.fs
Original file line number Diff line number Diff line change
Expand Up @@ -69,10 +69,8 @@ module Cancellable =
use _ = Cancellable.UsingToken(ct)
oper ct
with
| :? OperationCanceledException as e when e.CancellationToken = ct ->
ValueOrCancelled.Cancelled e
| :? OperationCanceledException as e ->
InvalidOperationException("Wrong cancellation token", e) |> raise
| :? OperationCanceledException as e when e.CancellationToken = ct -> ValueOrCancelled.Cancelled e
| :? OperationCanceledException as e -> InvalidOperationException("Wrong cancellation token", e) |> raise

let fold f acc seq =
Cancellable(fun ct ->
Expand Down

0 comments on commit d68c21f

Please sign in to comment.