1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
open Ast_helper
open Parsetree
module Ext = struct
let mk () = (Location.mkloc "merlin.hole" !default_loc, PStr [])
end
module Exp = struct
let mk () = Exp.extension (Ext.mk ())
end
module Cl = struct
let mk () = Cl.extension (Ext.mk ())
end
module Cty = struct
let mk () = Cty.extension (Ext.mk ())
end
module Pat = struct
let mk () = Pat.extension (Ext.mk ())
end
module Mty = struct
let mk () = Mty.extension (Ext.mk ())
end
module Mod = struct
let mk () = Mod.extension (Ext.mk ())
end