diff --git a/src/path.ml b/src/path.ml index c1bce7d3..926b66af 100644 --- a/src/path.ml +++ b/src/path.ml @@ -474,7 +474,7 @@ let change_extension ~ext t = let extension = Filename.extension -let pp = Format.pp_print_string +let pp ppf t = Format.pp_print_string ppf (to_string t) let drop_prefix t ~prefix = let t = to_string t in diff --git a/test/unit-tests/path.mlt b/test/unit-tests/path.mlt index 35e1a47e..aabf529b 100644 --- a/test/unit-tests/path.mlt +++ b/test/unit-tests/path.mlt @@ -40,7 +40,7 @@ Path.(descendant Path.root ~of_:(r "foo")) Path.(descendant Path.root ~of_:Path.root) [%%expect{| -- : Jbuilder.Path.t option = Some +- : Jbuilder.Path.t option = Some . |}] Path.(descendant (r "foo") ~of_:Path.root)