aboutsummaryrefslogtreecommitdiff
path: root/lib/models/gen
diff options
context:
space:
mode:
authorAdelyn Breelove <[email protected]>2018-12-17 15:04:02 -0700
committerAdelyn Breelove <[email protected]>2018-12-17 15:04:02 -0700
commit10ff247b7643fb0bb3aade5faff37c569feb0a20 (patch)
tree662767c51baf3c39591ee7fecbc36d6642a93243 /lib/models/gen
parentSome abstractions (diff)
downloaddisml-10ff247b7643fb0bb3aade5faff37c569feb0a20.tar.xz
disml-10ff247b7643fb0bb3aade5faff37c569feb0a20.zip
More stuff
Diffstat (limited to 'lib/models/gen')
-rw-r--r--lib/models/gen/guild.atd2
-rw-r--r--lib/models/gen/guild_j.ml6
-rw-r--r--lib/models/gen/guild_j.mli2
-rw-r--r--lib/models/gen/guild_t.ml2
-rw-r--r--lib/models/gen/guild_t.mli2
-rw-r--r--lib/models/gen/role.atd2
6 files changed, 8 insertions, 8 deletions
diff --git a/lib/models/gen/guild.atd b/lib/models/gen/guild.atd
index 3bb40d9..aec3f86 100644
--- a/lib/models/gen/guild.atd
+++ b/lib/models/gen/guild.atd
@@ -1,7 +1,7 @@
type snowflake <ocaml from="Snowflake" t="t"> = abstract
type user <ocaml from="User" t="t"> = abstract
type member <ocaml from="Member" t="t"> = abstract
-type role <ocaml from="Role" t="t"> = abstract
+type role <ocaml from="Role" t="role"> = abstract
type channel <ocaml from="Channel" t="t"> = abstract
type emoji <ocaml from="Emoji" t="t"> = abstract
diff --git a/lib/models/gen/guild_j.ml b/lib/models/gen/guild_j.ml
index 210dee8..3995965 100644
--- a/lib/models/gen/guild_j.ml
+++ b/lib/models/gen/guild_j.ml
@@ -5,7 +5,7 @@ type user = User_t.t
type snowflake = Snowflake_t.t
-type role = Role_t.t
+type role = Role_t.role
type member = Member_t.t
@@ -67,14 +67,14 @@ let read_snowflake = (
let snowflake_of_string s =
read_snowflake (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
let write_role = (
- Role_j.write_t
+ Role_j.write_role
)
let string_of_role ?(len = 1024) x =
let ob = Bi_outbuf.create len in
write_role ob x;
Bi_outbuf.contents ob
let read_role = (
- Role_j.read_t
+ Role_j.read_role
)
let role_of_string s =
read_role (Yojson.Safe.init_lexer ()) (Lexing.from_string s)
diff --git a/lib/models/gen/guild_j.mli b/lib/models/gen/guild_j.mli
index 7eca304..b84f039 100644
--- a/lib/models/gen/guild_j.mli
+++ b/lib/models/gen/guild_j.mli
@@ -5,7 +5,7 @@ type user = User_t.t
type snowflake = Snowflake_t.t
-type role = Role_t.t
+type role = Role_t.role
type member = Member_t.t
diff --git a/lib/models/gen/guild_t.ml b/lib/models/gen/guild_t.ml
index fe2a59c..e2bfe79 100644
--- a/lib/models/gen/guild_t.ml
+++ b/lib/models/gen/guild_t.ml
@@ -5,7 +5,7 @@ type user = User_t.t
type snowflake = Snowflake_t.t
-type role = Role_t.t
+type role = Role_t.role
type member = Member_t.t
diff --git a/lib/models/gen/guild_t.mli b/lib/models/gen/guild_t.mli
index fe2a59c..e2bfe79 100644
--- a/lib/models/gen/guild_t.mli
+++ b/lib/models/gen/guild_t.mli
@@ -5,7 +5,7 @@ type user = User_t.t
type snowflake = Snowflake_t.t
-type role = Role_t.t
+type role = Role_t.role
type member = Member_t.t
diff --git a/lib/models/gen/role.atd b/lib/models/gen/role.atd
index 8e3f6aa..bfe6b13 100644
--- a/lib/models/gen/role.atd
+++ b/lib/models/gen/role.atd
@@ -19,4 +19,4 @@ type role_update = {
type t = {
inherit role;
guild_id: snowflake;
-} \ No newline at end of file
+ } \ No newline at end of file