Don't record backtraces
This commit is contained in:
parent
bffd5407ce
commit
f4a5413c46
|
@ -1,12 +1,15 @@
|
||||||
(* -*- tuareg -*- *)
|
(* -*- tuareg -*- *)
|
||||||
open Stdune;;
|
open Stdune;;
|
||||||
|
|
||||||
|
Printexc.record_backtrace false;;
|
||||||
|
|
||||||
let r = Path.(relative root);;
|
let r = Path.(relative root);;
|
||||||
|
|
||||||
#install_printer Path.pp;;
|
#install_printer Path.pp;;
|
||||||
|
|
||||||
Path.(let p = relative root "foo" in descendant p ~of_:p)
|
Path.(let p = relative root "foo" in descendant p ~of_:p)
|
||||||
[%%expect{|
|
[%%expect{|
|
||||||
|
- : unit = ()
|
||||||
val r : string -> Stdune.Path.t = <fun>
|
val r : string -> Stdune.Path.t = <fun>
|
||||||
- : Stdune.Path.t option = Some foo
|
- : Stdune.Path.t option = Some foo
|
||||||
|}]
|
|}]
|
||||||
|
|
Loading…
Reference in New Issue