type lexing_position = Morbig.CST.lexing_position = {
pos_fname : string;
pos_lnum : int;
pos_bol : int;
pos_cnum : int;
}
val pp_lexing_position :
Ppx_deriving_runtime.Format.formatter ->
lexing_position ->
Ppx_deriving_runtime.unit
val lexing_position_of_yojson :
Yojson.Safe.t ->
lexing_position Ppx_deriving_yojson_runtime.error_or
val pp_position :
Ppx_deriving_runtime.Format.formatter ->
position ->
Ppx_deriving_runtime.unit
val show_position : position -> Ppx_deriving_runtime.string
val position_to_yojson : position -> Yojson.Safe.t
val position_of_yojson :
Yojson.Safe.t ->
position Ppx_deriving_yojson_runtime.error_or
type 'a located = 'a Morbig.CST.located = {
value : 'a;
position : position;
}
val equal_located :
'a. ('a -> 'a -> Ppx_deriving_runtime.bool) ->
'a located ->
'a located ->
Ppx_deriving_runtime.bool
val pp_located :
'a. (Ppx_deriving_runtime.Format.formatter ->
'a ->
Ppx_deriving_runtime.unit) ->
Ppx_deriving_runtime.Format.formatter ->
'a located ->
Ppx_deriving_runtime.unit
val show_located :
'a. (Ppx_deriving_runtime.Format.formatter ->
'a ->
Ppx_deriving_runtime.unit) ->
'a located ->
Ppx_deriving_runtime.string
val located_to_yojson :
'a. ('a -> Yojson.Safe.t) ->
'a located ->
Yojson.Safe.t
val located_of_yojson :
'a. (Yojson.Safe.t -> 'a Ppx_deriving_yojson_runtime.error_or) ->
Yojson.Safe.t ->
'a located Ppx_deriving_yojson_runtime.error_or
val _ :
(Yojson.Safe.t -> 'a Ppx_deriving_yojson_runtime.error_or) ->
Yojson.Safe.t ->
'a located Ppx_deriving_yojson_runtime.error_or
val dummily_located : 'a -> 'b located
val on_located : ('a -> 'b) -> 'c located -> 'd