Shell: Catch Lwt.Canceled during worker termination
This commit is contained in:
parent
b5515ea99e
commit
4d3174c557
@ -490,7 +490,7 @@ module Make
|
|||||||
end >>= function
|
end >>= function
|
||||||
| Ok () ->
|
| Ok () ->
|
||||||
loop ()
|
loop ()
|
||||||
| Error [Canceled | Exn Lwt_pipe.Closed | Exn Lwt_dropbox.Closed ] ->
|
| Error [Canceled | Exn Lwt.Canceled | Exn Lwt_pipe.Closed | Exn Lwt_dropbox.Closed ] ->
|
||||||
Logger.lwt_log_notice
|
Logger.lwt_log_notice
|
||||||
"@[Worker terminated [%a] @]"
|
"@[Worker terminated [%a] @]"
|
||||||
Name.pp w.name >>= fun () ->
|
Name.pp w.name >>= fun () ->
|
||||||
|
Loading…
Reference in New Issue
Block a user