aboutsummaryrefslogtreecommitdiff
path: root/lib/models/presence.ml
diff options
context:
space:
mode:
authorAdelyn Breedlove <[email protected]>2019-01-13 23:52:45 +0000
committerAdelyn Breedlove <[email protected]>2019-01-13 23:52:45 +0000
commitd95f0342f9cf2280b5d9794ab638c16a59c02a69 (patch)
tree191164d198c07cf388d9aae8a54013e5613c272c /lib/models/presence.ml
parentMerge branch 'dev' into 'master' (diff)
parentAdd deriving sexp to models (diff)
downloaddisml-d95f0342f9cf2280b5d9794ab638c16a59c02a69.tar.xz
disml-d95f0342f9cf2280b5d9794ab638c16a59c02a69.zip
Merge branch 'switch-to-deriving_yojson' into 'master'
Switch to deriving yojson See merge request Mishio595/disml!12
Diffstat (limited to 'lib/models/presence.ml')
-rw-r--r--lib/models/presence.ml13
1 files changed, 10 insertions, 3 deletions
diff --git a/lib/models/presence.ml b/lib/models/presence.ml
index 2ce9a51..ab245a7 100644
--- a/lib/models/presence.ml
+++ b/lib/models/presence.ml
@@ -1,3 +1,10 @@
-module Make(Http : S.Http) = struct
- type t = Presence_t.t
-end \ No newline at end of file
+open Core
+
+type t = {
+ user: User_t.partial_user;
+ roles: Snowflake.t list;
+ game: Activity.t option [@default None];
+ guild_id: Snowflake.t;
+ status: string;
+ activities: Activity.t list;
+} [@@deriving sexp, yojson { strict = false}] \ No newline at end of file