[ocaml] Allow blank lines between recursive type definitions

topiary/languages/ocaml.scm

@@ -70,6 +70,12 @@
   (let_and_operator) @allow_blank_line_before
 )
 
+; In a definition including several mutually recursive types,
+; one can skip a line before each of them.
+(type_definition
+  "and" @allow_blank_line_before
+)
+
 ; Append line breaks. If there is a comment following, we don't add anything,
 ; because the input softlines and spaces above will already have sorted out the
 ; formatting.

topiary/tests/samples/expected/ocaml.ml

@@ -677,6 +677,10 @@ let [1; snd] = [1; 2]
 type a = int
 and b = float
 
+type a = int
+
+and b = float
+
 (* Messing around with quoted strings and curly brackets *)
 type string_record = { my_string: string; }
 let quoted_string =

topiary/tests/samples/input/ocaml.ml

@@ -655,6 +655,10 @@ let [1; snd] = [1; 2]
 type a = int and
 b = float
 
+type a = int
+
+and b = float
+
 (* Messing around with quoted strings and curly brackets *)
 type string_record = { my_string: string; }
 let quoted_string =