瀏覽代碼

[display] remove questionable display handling from matcher.ml

see #8194
Simon Krajewski 6 年之前
父節點
當前提交
035a6a7ace
共有 1 個文件被更改,包括 0 次插入5 次删除
  1. 0 5
      src/typing/matcher.ml

+ 0 - 5
src/typing/matcher.ml

@@ -571,11 +571,6 @@ module Case = struct
 		ctx.ret <- old_ret;
 		List.iter (fun (v,t) -> v.v_type <- t) old_types;
 		save();
-		if ctx.is_display_file && DisplayPosition.display_position#enclosed_in p then begin match eo,eo_ast with
-			| Some e,Some e_ast -> ignore(TyperDisplay.display_expr ctx e_ast e DKMarked with_type p)
-			| None,None -> ignore(TyperDisplay.display_expr ctx (EBlock [],p) (mk (TBlock []) ctx.t.tvoid p) DKMarked with_type p)
-			| _ -> assert false
-		end;
 		{
 			case_guard = eg;
 			case_expr = eo;