package ocamlformat-lib

  1. Overview
  2. Docs

Source file annot.ml

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