Source file bench_operators.ml

open! Core

(* The operators are synonyms for already-benchmarked functions. *)

let ( ~/ ) = Bench_relative.of_string
let ( !/ ) = Bench_absolute.of_string
let ( ?/ ) = Bench_path.of_string
let ( ~. ) = Bench_part.of_string
let ( !/$ ) = Bench_absolute.to_string
let ( ~/$ ) = Bench_relative.to_string
let ( ?/$ ) = Bench_path.to_string
let ( ~.$ ) = Bench_part.to_string
let ( !/? ) = Bench_path.of_absolute
let ( ~/? ) = Bench_path.of_relative
let ( ~.? ) = Bench_path.of_part_relative
let ( ~.~ ) = Bench_relative.of_part
let ( /~/ ) = Bench_relative.append
let ( /!/ ) = Bench_absolute.append
let ( /?/ ) = Bench_path.append
let ( /~. ) = Bench_relative.append_part
let ( /!. ) = Bench_absolute.append_part
let ( /?. ) = Bench_path.append_part
let ( /~^ ) = Bench_relative.append_to_basename_exn
let ( /!^ ) = Bench_absolute.append_to_basename_exn
let ( /?^ ) = Bench_path.append_to_basename_exn
let ( /.^ ) = Bench_part.append_to_basename_exn