Make processFunctionAttributes return a record instead of tuple

Author: Maxim

src/res_parsetree_viewer.ml

@@ -55,10 +55,16 @@ let processUncurriedAttribute attrs =
   in
   process false [] attrs
 
+type functionAttributesInfo = {
+  async: bool;
+  uncurried: bool;
+  attributes: Parsetree.attributes;
+}
+
 let processFunctionAttributes attrs =
   let rec process async uncurried acc attrs =
     match attrs with
-    | [] -> (async, uncurried, List.rev acc)
+    | [] -> {async; uncurried; attributes = List.rev acc}
     | ({Location.txt = "bs"}, _) :: rest -> process async true acc rest
     | ({Location.txt = "async"}, _) :: rest -> process true uncurried acc rest
     | attr :: rest -> process async uncurried (attr :: acc) rest

src/res_parsetree_viewer.mli

@@ -17,10 +17,14 @@ val functorType :
 val processUncurriedAttribute :
   Parsetree.attributes -> bool * Parsetree.attributes
 
+type functionAttributesInfo = {
+  async: bool;
+  uncurried: bool;
+  attributes: Parsetree.attributes;
+}
+
 (* determines whether a function is async and/or uncurried based on the given attributes *)
-val processFunctionAttributes :
-  Parsetree.attributes ->
-  bool (* async *) * bool (* uncurried *) * Parsetree.attributes
+val processFunctionAttributes : Parsetree.attributes -> functionAttributesInfo
 
 val hasAwaitAttribute : Parsetree.attributes -> bool
 

src/res_printer.ml

@@ -3135,7 +3135,7 @@ and printExpression ~customLayout (e : Parsetree.expression) cmtTbl =
         cmtTbl
     | Pexp_fun _ | Pexp_newtype _ ->
       let attrsOnArrow, parameters, returnExpr = ParsetreeViewer.funExpr e in
-      let async, uncurried, attrs =
+      let ParsetreeViewer.{async; uncurried; attributes = attrs} =
         ParsetreeViewer.processFunctionAttributes attrsOnArrow
       in
       let returnExpr, typConstraint =
@@ -3302,7 +3302,7 @@ and printExpression ~customLayout (e : Parsetree.expression) cmtTbl =
 
 and printPexpFun ~customLayout ~inCallback e cmtTbl =
   let attrsOnArrow, parameters, returnExpr = ParsetreeViewer.funExpr e in
-  let async, uncurried, attrs =
+  let ParsetreeViewer.{async; uncurried; attributes = attrs} =
     ParsetreeViewer.processFunctionAttributes attrsOnArrow
   in
   let returnExpr, typConstraint =