Module Merlin_kernel.MbrowseSource
val fold_node :
(Ocaml_typing.Env.t -> Merlin_specific.Browse_raw.node -> 'a -> 'a) ->
Ocaml_typing.Env.t ->
Merlin_specific.Browse_raw.node ->
'a ->
'aval deepest_before :
?let_pun_behavior:Let_pun_behavior.t ->
?record_pattern_pun_behavior:Record_pattern_pun_behavior.t ->
Merlin_utils.Std.Lexing.position ->
t list ->
tThe deepest context inside or before the node, for instance, navigating * through: * foo bar (baz :: tail) <cursor> * asking for node from cursor position will return context of "tail". * Returns the matching node and all its ancestors or the empty list.
let_pun_behavior dictates whether to prefer the expression or pattern node in a punned let expression. The default is Prefer_pattern
val enclosing :
?let_pun_behavior:Let_pun_behavior.t ->
?record_pattern_pun_behavior:Record_pattern_pun_behavior.t ->
Merlin_utils.Std.Lexing.position ->
t list ->
tlet_pun_behavior dictates whether to prefer the expression or pattern node in a punned let expression. The default is Prefer_pattern
val of_typedtree :
[ `Implementation of Ocaml_typing.Typedtree.structure
| `Interface of Ocaml_typing.Typedtree.signature ] ->
tIdentify nodes introduced by recovery
val optional_label_sugar :
Ocaml_typing.Typedtree.expression_desc ->
Ocaml_typing.Typedtree.expression optionWhen an optional argument is applied with labelled syntax sugar (~a:v instead of ?a:(Some v)), the frontend will have wrapped it in Some _. optional_label_sugar exp returns Some exp' with the sugar removed in that case.