diff --git a/lib/Fmt_ast.ml b/lib/Fmt_ast.ml index 2ca5993ddc..e0d6326c5f 100644 --- 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 index dc17ec0112..778a4ff22b 100644 --- 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 ()