formatter won't keep multiline for exceptions

how to test:

1. type type t = {name: string, msg: string} and run formatter
2. notice still single line
3. type

type t = {
  name: string,
  msg: string,
}

and run formattter
4. notice still four lines
5. type exception Foo({name: string,msg: string}) and run formatter
6. notice still single line
7. type

exception Foo({
  name: string,
  msg: string,
})

and run formatter
8. BUG: formatter forces it to single line

Beginne damit, die nummerierten Beispiele mit dem Formatter zu reproduzieren, und vergleiche die einzeiligen und mehrzeiligen Formen für Records und Exceptions. Verfolge den von diesen Eingaben erreichten Formatter-Code; abgeschlossen ist die Aufgabe, wenn absichtlich mehrzeilige Records und Exception-Payloads mehrzeilig bleiben, anstatt in eine Zeile gezwungen zu werden.