fixup: idiomatic - use Fpath.v and Fmt.str

OCamlPro · Jan 15, 2025 · ab1f0f4 · ab1f0f4
1 parent e9d0423
commit ab1f0f4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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;