package codept-lib

  1. Overview
  2. Docs

Source file format_compat.ml

1
2
3
4
5
6
7
8
9
10
#0 "./format_compat.mlp"
let transform fmt f =
  { fmt with
    Format.out_newline = (fun () -> ());
    out_spaces = (fun _ -> ());
    out_indent = ignore;
#5 "./format_compat.mlp"
  out_string = f
#7 "./format_compat.mlp"
  }