1
2
3
4
5
6
7
8
9
10
11
12
13
include Types.External
let default_external =
fun ~name:_ ~filepath:_ ~line:_ ~column:_ -> None
let default =
let module External = struct
let handler = default_external
end
in
(module External : Types.External.S)
module Default = (val default)