diff options
| author | Adelyn Breelove <[email protected]> | 2019-01-24 11:59:13 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2019-01-24 11:59:13 -0700 |
| commit | 2d61d1ffd77940eebd4e865ba1429c5798ed0b7c (patch) | |
| tree | 08327e19f4047eace5d88dce7dde2997cf119406 /lib/models/id | |
| parent | Improve HTTP stuff (diff) | |
| download | disml-2d61d1ffd77940eebd4e865ba1429c5798ed0b7c.tar.xz disml-2d61d1ffd77940eebd4e865ba1429c5798ed0b7c.zip | |
Start of an event dispatch rework
Diffstat (limited to 'lib/models/id')
| -rw-r--r-- | lib/models/id/message_id.ml | 3 | ||||
| -rw-r--r-- | lib/models/id/message_id.mli | 3 | ||||
| -rw-r--r-- | lib/models/id/role_id.ml | 3 | ||||
| -rw-r--r-- | lib/models/id/role_id.mli | 3 | ||||
| -rw-r--r-- | lib/models/id/user_id.ml | 1 | ||||
| -rw-r--r-- | lib/models/id/user_id.mli | 2 | ||||
| -rw-r--r-- | lib/models/id/user_id_t.ml | 3 | ||||
| -rw-r--r-- | lib/models/id/user_id_t.mli | 3 |
8 files changed, 21 insertions, 0 deletions
diff --git a/lib/models/id/message_id.ml b/lib/models/id/message_id.ml new file mode 100644 index 0000000..377cadd --- /dev/null +++ b/lib/models/id/message_id.ml @@ -0,0 +1,3 @@ +type t = [ `Message_id of Snowflake.t ] [@@deriving sexp, yojson] + +let get_id (`Message_id id) = id
\ No newline at end of file diff --git a/lib/models/id/message_id.mli b/lib/models/id/message_id.mli new file mode 100644 index 0000000..da50f72 --- /dev/null +++ b/lib/models/id/message_id.mli @@ -0,0 +1,3 @@ +type t = [ `Message_id of Snowflake.t ] [@@deriving sexp, yojson] + +val get_id : t -> Snowflake.t
\ No newline at end of file diff --git a/lib/models/id/role_id.ml b/lib/models/id/role_id.ml new file mode 100644 index 0000000..a505f33 --- /dev/null +++ b/lib/models/id/role_id.ml @@ -0,0 +1,3 @@ +type t = [ `Role_id of Snowflake.t ] [@@deriving sexp, yojson] + +let get_id (`Role_id id) = id
\ No newline at end of file diff --git a/lib/models/id/role_id.mli b/lib/models/id/role_id.mli new file mode 100644 index 0000000..ededf3a --- /dev/null +++ b/lib/models/id/role_id.mli @@ -0,0 +1,3 @@ +type t = [ `Role_id of Snowflake.t ] [@@deriving sexp, yojson] + +val get_id : t -> Snowflake.t
\ No newline at end of file diff --git a/lib/models/id/user_id.ml b/lib/models/id/user_id.ml new file mode 100644 index 0000000..aba1b17 --- /dev/null +++ b/lib/models/id/user_id.ml @@ -0,0 +1 @@ +include Impl.User(User_id_t)
\ No newline at end of file diff --git a/lib/models/id/user_id.mli b/lib/models/id/user_id.mli new file mode 100644 index 0000000..7fe822a --- /dev/null +++ b/lib/models/id/user_id.mli @@ -0,0 +1,2 @@ +include S.UserImpl with + type t := User_id_t.t
\ No newline at end of file diff --git a/lib/models/id/user_id_t.ml b/lib/models/id/user_id_t.ml new file mode 100644 index 0000000..8a6a265 --- /dev/null +++ b/lib/models/id/user_id_t.ml @@ -0,0 +1,3 @@ +type t = [ `User_id of Snowflake.t ] [@@deriving sexp, yojson] + +let get_id (`User_id id) = id
\ No newline at end of file diff --git a/lib/models/id/user_id_t.mli b/lib/models/id/user_id_t.mli new file mode 100644 index 0000000..90211ab --- /dev/null +++ b/lib/models/id/user_id_t.mli @@ -0,0 +1,3 @@ +type t = [ `User_id of Snowflake.t ] [@@deriving sexp, yojson] + +val get_id : t -> Snowflake.t
\ No newline at end of file |