From ab1f0f47dc0fa2bca4acf11a5cc12bbe23b63b64 Mon Sep 17 00:00:00 2001 From: nehafish Date: Wed, 15 Jan 2025 23:34:14 +0930 Subject: [PATCH] fixup: idiomatic - use Fpath.v and Fmt.str --- test/fuzz/fuzzer.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/fuzz/fuzzer.ml b/test/fuzz/fuzzer.ml index 22227024..755eb59b 100644 --- a/test/fuzz/fuzzer.ml +++ b/test/fuzz/fuzzer.ml @@ -77,7 +77,7 @@ let check (module I1 : Interprets.INTERPRET) (module I2 : Interprets.INTERPRET) if Param.save_modules then begin let outdir = Fpath.v Param.output_dir in let* () = Bos.OS.Dir.create ~mode:0o755 outdir in - let filename = Fpath.add_seg outdir (Printf.sprintf "gen_do_module_%d.wat" !global_count) in + let filename = Fpath.(v Param.output_dir / Fmt.str "gen_do_module_%d.wat" !global_count) in let* () = write_module (Fpath.to_string filename) m in if Param.debug then Fmt.epr "Saved module to %a@\n" Fpath.pp filename;