Merge pull request #17415 from MinaProtocol/dw/remove-unused-handler-register

Exit_handlers: remove unused method

Author: dannywillems

src/lib/exit_handlers/exit_handlers.ml

@@ -4,25 +4,8 @@ open Core_kernel
 open Async_kernel
 open Async_unix
 
-(* register a thunk to be called at exit; log registration and execution *)
-let register_handler ~logger ~description (f : unit -> unit) =
-  [%log info] "Registering exit handler: $description"
-    ~metadata:[ ("description", `String description) ] ;
-  let logging_thunk () =
-    [%log info] "Running exit handler: $description"
-      ~metadata:[ ("description", `String description) ] ;
-    (* if there's an exception, log it, allow other handlers to run *)
-    try f ()
-    with exn ->
-      [%log info] "When running exit handler: $description, got exception $exn"
-        ~metadata:
-          [ ("description", `String description)
-          ; ("exn", `String (Exn.to_string exn))
-          ]
-  in
-  Stdlib.at_exit logging_thunk
-
-(* register a Deferred.t thunk to be called at Async shutdown; log registration and execution *)
+(* register a Deferred.t thunk to be called at Async shutdown; log registration
+   and execution *)
 let register_async_shutdown_handler ~logger ~description
     (f : unit -> unit Deferred.t) =
   [%log debug] "Registering async shutdown handler: $description"