preserve constructor argument names in `Cls.new` functions

src/typing/typer.ml

@@ -2628,7 +2628,7 @@ and type_access ctx e p mode =
 					tf_args = List.map (fun v -> v,None) vl;
 					tf_type = t;
 					tf_expr = mk (TReturn (Some ec)) t p;
-				}) (tfun (List.map (fun v -> v.v_type) vl) t) p)
+				}) (TFun ((List.map (fun v -> v.v_name,false,v.v_type) vl),t)) p)
 			| _ -> error "Binding new is only allowed on class types" p
 		end;
 	| EField _ ->

tests/display/src/cases/Basic.hx

@@ -85,4 +85,16 @@ class Basic extends DisplayTestCase {
 	@:funcCode function testMissingParams() {
 		eq("Array<Array.T>", type(pos(1)));
 	}
+
+	/**
+	class Some {
+		function new(someName:Int) {}
+		function main() {
+			Some.new{-1-}
+		}
+	}
+	**/
+	function testCtorClosureType() {
+		eq("someName : Int -> cases.Some", type(pos(1)));
+	}
 }