Fix printing of optional fiels in records

CHANGELOG.md

@@ -20,6 +20,7 @@
 #### :bug: Bug Fix
 
 - Fix issue where the printer would omit attributes for `->` and `|>` https://github.com/rescript-lang/syntax/pull/629
+- Fix printing of optional fiels in records https://github.com/rescript-lang/rescript-compiler/issues/5654
 
 ## ReScript 10.0
 

src/res_outcome_printer.ml

@@ -526,9 +526,9 @@ and printRecordDeclRowDoc (name, mut, opt, arg) =
   Doc.group
     (Doc.concat
        [
-         (if opt then Doc.text "?" else Doc.nil);
          (if mut then Doc.text "mutable " else Doc.nil);
          printIdentLike ~allowUident:false name;
+         (if opt then Doc.text "?" else Doc.nil);
          Doc.text ": ";
          printOutTypeDoc arg;
        ])

tests/oprint/expected/oprint.resi.txt

@@ -486,4 +486,4 @@ type emptyObject = {.}
 let f: (~x: 'a=?, ~y: 'b) => option<'a>
 type call = CleanStart
 let f: (~a: int=?, unit) => int
-type opt = {x: int, ?y: string}
+type opt = {x: int, y?: string}