[display] fix compilation

src/compiler/displayOutput.ml

@@ -229,7 +229,6 @@ let handle_display_argument com file_pos pre_compilation did_something =
 		did_something := true;
 		(try Memory.display_memory com with e -> prerr_endline (Printexc.get_backtrace ()));
 	| "diagnostics" ->
-		Common.define com Define.NoCOpt;
 		com.display <- DisplayMode.create (DMDiagnostics []);
 		Parser.display_mode := DMDiagnostics [];
 	| _ ->
@@ -239,32 +238,24 @@ let handle_display_argument com file_pos pre_compilation did_something =
 		let pos, smode = try ExtString.String.split pos "@" with _ -> pos,"" in
 		let mode = match smode with
 			| "position" ->
-				Common.define com Define.NoCOpt;
 				DMDefinition
 			| "usage" ->
-				Common.define com Define.NoCOpt;
 				DMUsage (false,false,false)
 			(*| "rename" ->
-				Common.define com Define.NoCOpt;
 				DMUsage true*)
 			| "package" ->
 				DMPackage
 			| "type" ->
-				Common.define com Define.NoCOpt;
 				DMHover
 			| "toplevel" ->
 				DMDefault
 			| "module-symbols" ->
-				Common.define com Define.NoCOpt;
 				DMModuleSymbols None;
 			| "diagnostics" ->
-				Common.define com Define.NoCOpt;
 				DMDiagnostics [file_unique];
 			| "statistics" ->
-				Common.define com Define.NoCOpt;
 				DMStatistics
 			| "signature" ->
-				Common.define com Define.NoCOpt;
 				DMSignature
 			| "" ->
 				DMDefault
@@ -274,7 +265,6 @@ let handle_display_argument com file_pos pre_compilation did_something =
 					| "resolve" ->
 						DMResolve arg
 					| "workspace-symbols" ->
-						Common.define com Define.NoCOpt;
 						DMModuleSymbols (Some arg)
 					| _ ->
 						DMDefault

src/context/display/displayJson.ml

@@ -122,22 +122,18 @@ let handler =
 			hctx.display#enable_display DMDefault;
 		);
 		"display/definition", (fun hctx ->
-			Common.define hctx.com Define.NoCOpt;
 			hctx.display#set_display_file false true;
 			hctx.display#enable_display DMDefinition;
 		);
 		"display/implementation", (fun hctx ->
-			Common.define hctx.com Define.NoCOpt;
 			hctx.display#set_display_file false true;
 			hctx.display#enable_display (DMImplementation);
 		);
 		"display/typeDefinition", (fun hctx ->
-			Common.define hctx.com Define.NoCOpt;
 			hctx.display#set_display_file false true;
 			hctx.display#enable_display DMTypeDefinition;
 		);
 		"display/references", (fun hctx ->
-			Common.define hctx.com Define.NoCOpt;
 			hctx.display#set_display_file false true;
 			match hctx.jsonrpc#get_opt_param (fun () -> hctx.jsonrpc#get_string_param "kind") "normal" with
 			| "withBaseAndDescendants" ->
@@ -148,7 +144,6 @@ let handler =
 				hctx.display#enable_display (DMUsage (false,false,false));
 		);
 		"display/hover", (fun hctx ->
-			Common.define hctx.com Define.NoCOpt;
 			hctx.display#set_display_file false true;
 			hctx.display#enable_display DMHover;
 		);