Source file meta_parser.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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