[server] Better error messages for --connect

HaxeFoundation · Sep 8, 2023 · 44c9abd · 44c9abd
1 parent 9bbd10f
commit 44c9abd
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/compiler/server.ml b/src/compiler/server.ml
@@ -544,7 +544,11 @@ let init_wait_stdio() =
 (* The connect function to connect to [host] at [port] and send arguments [args]. *)
 let do_connect host port args =
 	let sock = Unix.socket Unix.PF_INET Unix.SOCK_STREAM 0 in
-	(try Unix.connect sock (Unix.ADDR_INET (Unix.inet_addr_of_string host,port)) with _ -> failwith ("Couldn't connect on " ^ host ^ ":" ^ string_of_int port));
+	(try Unix.connect sock (Unix.ADDR_INET (Unix.inet_addr_of_string host,port)) with
+		| Unix.Unix_error(code,_,_) -> failwith
+			("Couldn't connect on " ^ host ^ ":" ^ string_of_int port ^ " (" ^ (Unix.error_message code) ^ ")");
+		| _ -> failwith ("Couldn't connect on " ^ host ^ ":" ^ string_of_int port)
+	);
 	let rec display_stdin args =
 		match args with
 		| [] -> ""