[display] fix type path completion

src/compiler/main.ml

@@ -982,7 +982,14 @@ with
 				error ctx msg p;
 				None
 		in
-		Option.may (fun fields -> raise (DisplayOutput.Completion (DisplayOutput.print_fields fields))) fields
+		begin match fields with
+		| None -> ()
+		| Some fields ->
+			begin match ctx.com.json_out with
+			| Some (f,_) -> raise (DisplayOutput.Completion (f (Display.DisplayException.to_json (DisplayFields(fields,false)))))
+			| _ -> raise (DisplayOutput.Completion (DisplayOutput.print_fields fields))
+			end
+		end
 	| DisplayException(ModuleSymbols s | Diagnostics s | Statistics s | Metadata s) ->
 		raise (DisplayOutput.Completion s)
 	| EvalExceptions.Sys_exit i | Hlinterp.Sys_exit i ->