Fix: missing break before attributes of Pmty_with

CHANGES.md

@@ -1,5 +1,6 @@
 ### (master)
 
+  + Fix: missing break before attributes of Pmty_with (#1103) (Josh Berdine)
   + Fix: Fix closing quote exceeding the margin (#1096) (Jules Aguillon)
   + Improve: add a message when a config value is removed (#1089) (Etienne Millon)
   + API: optional names for formatting boxes (#1083) (Guillaume Petiot)

src/Fmt_ast.ml

@@ -3255,7 +3255,7 @@ and fmt_module_type c ({ast= mty; _} as xmty) =
       let fmt_cstrs ~first:_ ~last:_ (wcs_and, loc, attr) =
         Cmts.fmt c loc
           ( list_fl wcs_and fmt_cstr
-          $ fmt_attributes c ~pre:(str " ") ~key:"@" attr )
+          $ fmt_attributes c ~pre:(fmt "@;<1 -1>") ~key:"@" attr )
       in
       let {pro; psp; bdy; esp; epi; opn= _; cls= _} = fmt_module_type c mt in
       { empty with

test/passing/attributes.ml

@@ -54,7 +54,8 @@ module type M = sig
       with type t = t
        and type u := u
        and module R = R
-       and module S := S [@test])
+       and module S := S
+     [@test])
 
   module T : module type of X [@test5]
 

test/passing/module_attributes.ml.ref

@@ -25,14 +25,18 @@ include (
 include (
   List :
     (module type of Foo
-      with module A := A [@warning "-3"] [@warning "-3"]
-      with module B := B [@warning "-3"]) )
+      with module A := A
+     [@warning "-3"] [@warning "-3"]
+      with module B := B
+     [@warning "-3"]) )
 
 include (
   List :
     (module type of Pervasives
-      with module A := A [@warning "-3"] [@warning "-3"]
-      with module B := B [@warning "-3"] [@warning "-3"]) ) [@warning "-3"]
+      with module A := A
+     [@warning "-3"] [@warning "-3"]
+      with module B := B
+     [@warning "-3"] [@warning "-3"]) ) [@warning "-3"]
 
 module My_module_name : sig end = struct end
 (* some arbitrary comment *)