fix: ignore * (#477)

Author: a-c-sreedhar-reddy

src/res_printer.ml

@@ -787,7 +787,7 @@ and printModType modType cmtTbl =
                     {lbl.Asttypes.loc with loc_end = modType.Parsetree.pmty_loc.loc_end}
                   in
                   let attrs = printAttributes attrs cmtTbl in
-                  let lblDoc = if lbl.Location.txt = "_" then Doc.nil
+                  let lblDoc = if lbl.Location.txt = "_" || lbl.txt = "*" then Doc.nil
                     else
                       let doc = Doc.text lbl.txt in
                       printComments doc cmtTbl lbl.loc

tests/printer/modType/expected/functor.res.txt

@@ -12,3 +12,8 @@ module type Functor = (@attr1 SetLike, @attr2 BtreeLike) => @attr3 NeoTree
 
 module type Functor = (SetLike => Set) with type t = A.t
 module type Functor = SetLike => (Set with type t = A.t)
+
+module type B = () =>
+{
+
+}

tests/printer/modType/functor.res

@@ -13,3 +13,7 @@ module type Functor = @attr1 (SetLike) => @attr2 (BtreeLike) => @attr3 NeoTree
 
 module type Functor = SetLike => Set with type t = A.t
 module type Functor = SetLike => (Set with type t = A.t)
+
+module type B = () => {
+
+}