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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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 Compound = struct
        type t = unit
      end

      module Diff_annot = struct
        type t = unit
      end
    end

    module User_error = struct
      let raise
            ?has_embedded_location:_
            ?needs_stack_trace:_
            ?loc:_
            ?hints:_
            ?compound:_
            ?promotion:_
            texts
        =
        invalid_arg (String.concat " " texts)
      ;;
    end
  end)

include Meta_parser