Source file meta_parser.ml

module Meta_parser = Dune_meta_parser.Meta_parser.Make (struct
    module Loc = struct
      type t = unit

      let of_lexbuf _ = ()
    end

    module Lib_name = struct
      type t = string

      let parse_string_exn (_, n) = n
    end

    module Pp = struct
      type 'tag t = string

      let text s = s
    end

    module User_message = struct
      module Style = struct
        type t = unit
      end

      module Annots = struct
        type t = unit
      end
    end

    module User_error = struct
      let raise ?loc:_ ?hints:_ ?annots:_ texts = invalid_arg (String.concat " " texts)
    end
  end)

include Meta_parser