Fix Path.pp
This commit is contained in:
parent
92c7927432
commit
8b11b494d2
|
@ -474,7 +474,7 @@ let change_extension ~ext t =
|
||||||
|
|
||||||
let extension = Filename.extension
|
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 drop_prefix t ~prefix =
|
||||||
let t = to_string t in
|
let t = to_string t in
|
||||||
|
|
|
@ -40,7 +40,7 @@ Path.(descendant Path.root ~of_:(r "foo"))
|
||||||
|
|
||||||
Path.(descendant Path.root ~of_:Path.root)
|
Path.(descendant Path.root ~of_:Path.root)
|
||||||
[%%expect{|
|
[%%expect{|
|
||||||
- : Jbuilder.Path.t option = Some
|
- : Jbuilder.Path.t option = Some .
|
||||||
|}]
|
|}]
|
||||||
|
|
||||||
Path.(descendant (r "foo") ~of_:Path.root)
|
Path.(descendant (r "foo") ~of_:Path.root)
|
||||||
|
|
Loading…
Reference in New Issue