Source file `github_json.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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
(*
   Adapters used by atdgen to turn Github's representation of variants
   into an ATD-compatible representation.
*)
module Adapter = struct
  module Ref =
    Atdgen_runtime.Json_adapter.Type_and_value_fields.Make (struct
      let type_field_name = "ref_type"
      let value_field_name = "ref"
      let known_tags = None
    end)

  module Payload =
    Atdgen_runtime.Json_adapter.Type_and_value_fields.Make (struct
      let type_field_name = "type"
      let value_field_name = "payload"
      let known_tags = None
    end)

  module Issue_comment_event =
    Atdgen_runtime.Json_adapter.Type_and_value_fields.Make (struct
      let type_field_name = "action"
      let value_field_name = "changes"
      let known_tags =
        Some (["created"; "edited"; "deleted"], "Unknown")
    end)

  module Issues_event =
    Atdgen_runtime.Json_adapter.Type_and_value_fields.Make (struct
      let type_field_name = "action"
      let value_field_name = "changes"
      let known_tags =
        Some (
          [
            "assigned";
            "unassigned";
            "labeled";
            "unlabeled";
            "opened";
            "edited";
            "closed";
            "reopened";
          ],
          "Unknown"
        )
    end)

  module Pull_request_event =
    Atdgen_runtime.Json_adapter.Type_and_value_fields.Make (struct
      let type_field_name = "action"
      let value_field_name = "changes"
      let known_tags =
        Some (
          [
            "assigned";
            "unassigned";
            "labeled";
            "unlabeled";
            "opened";
            "edited";
            "closed";
            "reopened";
            "synchronize";
          ],
          "Unknown"
        )
    end)

  module Pull_request_review_comment_event =
    Atdgen_runtime.Json_adapter.Type_and_value_fields.Make (struct
      let type_field_name = "action"
      let value_field_name = "changes"
      let known_tags =
        Some (["created"; "edited"; "deleted"], "Unknown")
    end)

  module Event =
    Atdgen_runtime.Json_adapter.Type_and_value_fields.Make (struct
      let type_field_name = "type"
      let value_field_name = "payload"
      let known_tags =
        Some (
          [
            "CommitCommentEvent";
            "CreateEvent";
            "DeleteEvent";
            "DownloadEvent";
            "FollowEvent";
            "ForkEvent";
            "ForkApplyEvent";
            "GistEvent";
            "GollumEvent";
            "IssueCommentEvent";
            "IssuesEvent";
            "MemberEvent";
            "PublicEvent";
            "PullRequestEvent";
            "PullRequestReviewCommentEvent";
            "PushEvent";
            "ReleaseEvent";
            "RepositoryEvent";
            "StatusEvent";
            "WatchEvent";
          ],
          "Unknown"
        )
    end)

  module Hook =
    Atdgen_runtime.Json_adapter.Type_and_value_fields.Make (struct
      let type_field_name = "name"
      let value_field_name = "config"
      let known_tags = Some (["web"], "Unknown")
    end)
end