From 184ca9dbee691f9a0f3101bd53959fd178db1cdc Mon Sep 17 00:00:00 2001 From: Rudy Ges Date: Thu, 9 May 2024 08:06:36 +0200 Subject: [PATCH] [server] add module skip reason to 'Unexpected BadModule' error --- src/compiler/server.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/server.ml b/src/compiler/server.ml index ef168151233..b86fe011e5b 100644 --- a/src/compiler/server.ml +++ b/src/compiler/server.ml @@ -439,7 +439,7 @@ class hxb_reader_api_server else delay (fun () -> ignore(f_next chunks EOF)); m | BadModule reason -> - die (Printf.sprintf "Unexpected BadModule %s" (s_type_path path)) __LOC__ + die (Printf.sprintf "Unexpected BadModule %s (%s)" (s_type_path path) (Printer.s_module_skip_reason reason)) __LOC__ | NoModule -> die (Printf.sprintf "Unexpected NoModule %s" (s_type_path path)) __LOC__