Source file `windtrap_coverage_ppx.ml`

1
2
3
4
5
6
7
8
9
10
11
(*---------------------------------------------------------------------------
   Copyright (c) 2026 Invariant Systems. All rights reserved.
   SPDX-License-Identifier: ISC
  ---------------------------------------------------------------------------*)

let () =
  let impl ctxt ast =
    (new Instrument.instrumenter)#transform_impl_file ctxt ast
  in
  let instrument = Ppxlib.Driver.Instrument.V2.make impl ~position:After in
  Ppxlib.Driver.register_transformation ~instrument "windtrap_coverage"