# Module CamlinternalMenhirLib.ErrorReports

    module ErrorReports: sig .. end

    type 'a buffer

    val wrap : (Lexing.lexbuf -> 'token) ->
           (Lexing.position * Lexing.position)
           buffer * (Lexing.lexbuf -> 'token)

    val wrap_supplier : (unit -> 'token * Lexing.position * Lexing.position) ->
           (Lexing.position * Lexing.position)
           buffer *
           (unit -> 'token * Lexing.position * Lexing.position)

    val show : ('a -> string) -> 'a buffer -> string

    val last : 'a buffer -> 'a

    val extract : string -> Lexing.position * Lexing.position -> string

    val sanitize : string -> string

    val compress : string -> string

    val shorten : int -> string -> string

    val expand : (int -> string) -> string -> string