Wrap module type constraints

ocaml-ppx · Jan 16, 2024 · cea6493 · cea6493
1 parent e48950f
commit cea6493
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git a/lib/Fmt_ast.ml b/lib/Fmt_ast.ml
@@ -4189,7 +4189,7 @@ and fmt_module_expr ?(dock_struct = true) c ({ast= m; _} as xmod) =
   | Pmod_unpack (e, ty1, ty2) ->
       let package_type sep (lid, cstrs) =
         break 1 (Params.Indent.mod_unpack_annot c.conf)
-        $ hvbox 0
+        $ hovbox 0
             ( hovbox 0 (str sep $ fmt_longident_loc c lid)
             $ fmt_package_type c ctx cstrs )
       in

diff --git a/test/passing/tests/module.ml b/test/passing/tests/module.ml
@@ -111,11 +111,9 @@ let _ =
   let module M =
     ( val (* aa *) m (* bb *)
         : (* cc *)
-        M
-        with type t = t (* dd *)
+        M with type t = t (* dd *)
         :> (* ee *)
-        N
-        with type t = t (* ff *) )
+        N with type t = t (* ff *) )
   in
   ()