@@ -1426,15 +1426,15 @@ and printTypExpr (typExpr : Parsetree.core_type) cmtTbl =
1426
1426
1427
1427
(* object printings *)
1428
1428
| Ptyp_object (fields , openFlag ) ->
1429
- printBsObjectSugar ~inline: false fields openFlag cmtTbl
1429
+ printObject ~inline: false fields openFlag cmtTbl
1430
1430
| Ptyp_constr (longidentLoc , [{ptyp_desc = Ptyp_object (fields , openFlag )} ]) ->
1431
1431
(* for foo<{"a": b}>, when the object is long and needs a line break, we
1432
1432
want the <{ and }> to stay hugged together *)
1433
1433
let constrName = printLidentPath longidentLoc cmtTbl in
1434
1434
Doc. concat([
1435
1435
constrName;
1436
1436
Doc. lessThan;
1437
- printBsObjectSugar ~inline: true fields openFlag cmtTbl;
1437
+ printObject ~inline: true fields openFlag cmtTbl;
1438
1438
Doc. greaterThan;
1439
1439
])
1440
1440
@@ -1641,8 +1641,7 @@ and printTypExpr (typExpr : Parsetree.core_type) cmtTbl =
1641
1641
)
1642
1642
in
1643
1643
let shouldPrintItsOwnAttributes = match typExpr.ptyp_desc with
1644
- | Ptyp_arrow _ (* es6 arrow types print their own attributes *)
1645
- | Ptyp_constr ({txt = Longident. Ldot (Longident. Lident "Js" , "t" )} , _ ) -> true
1644
+ | Ptyp_arrow _ (* es6 arrow types print their own attributes *) -> true
1646
1645
| _ -> false
1647
1646
in
1648
1647
let doc = begin match typExpr.ptyp_attributes with
@@ -1658,7 +1657,7 @@ and printTypExpr (typExpr : Parsetree.core_type) cmtTbl =
1658
1657
in
1659
1658
printComments doc cmtTbl typExpr.ptyp_loc
1660
1659
1661
- and printBsObjectSugar ~inline fields openFlag cmtTbl =
1660
+ and printObject ~inline fields openFlag cmtTbl =
1662
1661
let doc = match fields with
1663
1662
| [] -> Doc. concat [
1664
1663
Doc. lbrace;
0 commit comments