Simon Krajewski пре 6 година
родитељ
комит
85e3c8e94c
1 измењених фајлова са 4 додато и 4 уклоњено
  1. 4 4
      src/typing/typerDisplay.ml

+ 4 - 4
src/typing/typerDisplay.ml

@@ -371,10 +371,10 @@ and display_expr ctx e_ast e dk with_type p =
 	| DMTypeDefinition ->
 	| DMTypeDefinition ->
 		raise_position_of_type e.etype
 		raise_position_of_type e.etype
 	| DMDefault when not (!Parser.had_resume)->
 	| DMDefault when not (!Parser.had_resume)->
-		let display_fields e_ast e l =
-			let fields = DisplayFields.collect ctx e_ast e dk with_type p in
-			let item = completion_item_of_expr ctx e in
-			raise_fields fields (CRField(item,e.epos,None,None)) (Some {e.epos with pmin = e.epos.pmax - l;})
+		let display_fields e_ast e1 l =
+			let fields = DisplayFields.collect ctx e_ast e1 dk with_type p in
+			let item = completion_item_of_expr ctx e1 in
+			raise_fields fields (CRField(item,e1.epos,None,None)) (Some {e.epos with pmin = e.epos.pmax - l;})
 		in
 		in
 		begin match fst e_ast,e.eexpr with
 		begin match fst e_ast,e.eexpr with
 			| EField(e1,s),TField(e2,_) ->
 			| EField(e1,s),TField(e2,_) ->