소스 검색

add missing case

Simon Krajewski 3 년 전
부모
커밋
d9a1260bc5
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  1. 2 0
      src/compiler/compiler.ml

+ 2 - 0
src/compiler/compiler.ml

@@ -619,6 +619,8 @@ let handle_display_exception_json ctx dex api =
 		DisplayPosition.display_position#reset;
 		DisplayPosition.display_position#reset;
 		let ctx = DisplayJson.create_json_context api.jsonrpc (match dex with DisplayFields _ -> true | _ -> false) in
 		let ctx = DisplayJson.create_json_context api.jsonrpc (match dex with DisplayFields _ -> true | _ -> false) in
 		api.send_result (DisplayException.to_json ctx dex)
 		api.send_result (DisplayException.to_json ctx dex)
+	| DisplayNoResult ->
+		api.send_result JNull
 	| _ ->
 	| _ ->
 		handle_display_exception_old ctx dex
 		handle_display_exception_old ctx dex