Source file `merlin_helpers.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
open! Import

let mk_attr_noloc txt = Ast_helper.Attr.mk Location.{ txt; loc = none }
let hide_attribute : attribute = mk_attr_noloc "merlin.hide" (PStr [])
let focus_attribute : attribute = mk_attr_noloc "merlin.focus" (PStr [])

let hide_pattern ({ ppat_attributes; _ } as p) =
  { p with ppat_attributes = hide_attribute :: ppat_attributes }

let focus_pattern ({ ppat_attributes; _ } as p) =
  { p with ppat_attributes = focus_attribute :: ppat_attributes }

let hide_expression ({ pexp_attributes; _ } as e) =
  { e with pexp_attributes = hide_attribute :: pexp_attributes }

let focus_expression ({ pexp_attributes; _ } as e) =
  { e with pexp_attributes = focus_attribute :: pexp_attributes }