outcome-printer: add parens around alias type

glennsl · cristianoc · commit c18ca3b0bffe · 2022-06-16T01:40:05.000+02:00
diff --git a/src/res_outcome_printer.ml b/src/res_outcome_printer.ml
@@ -233,9 +233,11 @@ let printPolyVarIdent txt =
        )
      | Otyp_alias (typ, aliasTxt) ->
        Doc.concat [
+         Doc.lparen;
          printOutTypeDoc typ;
          Doc.text " as '";
-         Doc.text aliasTxt
+         Doc.text aliasTxt;
+         Doc.rparen
        ]
      | Otyp_constr (
         Oide_dot (Oide_dot (Oide_ident "Js", "Fn") , "arity0"), (* Js.Fn.arity0 *)

Original file line number	Diff line number	Diff line change
`@@ -233,9 +233,11 @@ let printPolyVarIdent txt =`
`233`	`233`	`)`
`234`	`234`	`\| Otyp_alias (typ, aliasTxt) ->`
`235`	`235`	`Doc.concat [`
	`236`	`+ Doc.lparen;`
`236`	`237`	`printOutTypeDoc typ;`
`237`	`238`	`Doc.text " as '";`
`238`		`- Doc.text aliasTxt`
	`239`	`+ Doc.text aliasTxt;`
	`240`	`+ Doc.rparen`
`239`	`241`	`]`
`240`	`242`	`\| Otyp_constr (`
`241`	`243`	`Oide_dot (Oide_dot (Oide_ident "Js", "Fn") , "arity0"), (* Js.Fn.arity0 *)`