Partial application of an uncurried type returns an uncurried type.

Author: cristianoc

jscomp/ml/typecore.ml

@@ -2988,7 +2988,6 @@ and type_application env funct (sargs : sargs) : targs * Types.type_expr =
                 Location.prerr_warning sarg1.pexp_loc Warnings.Unused_argument;
               unify env ty_fun (newty (Tarrow(l1,t1,t2,Clink(ref Cunknown))));
               (t1, t2)
-          | Tconstr (Pdot (Pdot(Pident {name = "Js"},"Fn",_),_,_),[{desc=Tarrow (l,t1,t2,_)}],_)
           | Tarrow (l,t1,t2,_) when Asttypes.same_arg_label l l1
             ->
               (t1, t2)