Mreader_explain (merlin-lib.merlin-lib.kernel.Merlin_kernel.Mreader

val opening : 
  'a Ocaml_preprocess.Parser_raw.MenhirInterpreter.terminal ->
  string option

val opening_st : 
  'a Ocaml_preprocess.Parser_raw.MenhirInterpreter.lr1state ->
  string option

val closing : 'a Ocaml_preprocess.Parser_raw.MenhirInterpreter.terminal -> bool

val closing_st : 
  'a Ocaml_preprocess.Parser_raw.MenhirInterpreter.lr1state ->
  bool

type explanation = {

item : (string * Ocaml_parsing.Location.t) option;
unclosed : (string * Ocaml_parsing.Location.t) option;
location : Ocaml_parsing.Location.t;
popped : Ocaml_preprocess.Parser_raw.MenhirInterpreter.xsymbol list;
shifted : Ocaml_preprocess.Parser_raw.MenhirInterpreter.xsymbol option;
unexpected : Ocaml_preprocess.Parser_raw.MenhirInterpreter.token;

}

val explain : 
  'a Ocaml_preprocess.Parser_raw.MenhirInterpreter.env ->
  (Ocaml_preprocess.Parser_raw.MenhirInterpreter.token
   * Lexing.position
   * Lexing.position) ->
  Ocaml_preprocess.Parser_raw.MenhirInterpreter.xsymbol list ->
  Ocaml_preprocess.Parser_raw.MenhirInterpreter.xsymbol option ->
  explanation

val to_error : explanation -> Ocaml_parsing.Location.error

exception Syntax_explanation of explanation

val syntax_explanation : exn -> Ocaml_parsing.Location.error option