From c5bfc108ca6a1e7a21492b4318de78a74ed801f9 Mon Sep 17 00:00:00 2001 From: Adelyn Breedlove Date: Sun, 13 Jan 2019 16:51:04 -0700 Subject: Add deriving sexp to models --- lib/models/message_t.ml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lib/models/message_t.ml') diff --git a/lib/models/message_t.ml b/lib/models/message_t.ml index f793223..c4253d5 100644 --- a/lib/models/message_t.ml +++ b/lib/models/message_t.ml @@ -1,3 +1,5 @@ +open Core + type message_update = { id: Snowflake.t; author: User_t.t option [@default None]; @@ -18,7 +20,7 @@ type message_update = { pinned: bool option [@default None]; webhook_id: Snowflake.t option [@default None]; kind: int option [@default None][@key "type"]; -} [@@deriving yojson { strict = false}] +} [@@deriving sexp, yojson { strict = false}] type t = { id: Snowflake.t; @@ -40,4 +42,4 @@ type t = { pinned: bool; webhook_id: Snowflake.t option [@default None]; kind: int [@key "type"]; -} [@@deriving yojson { strict = false}] \ No newline at end of file +} [@@deriving sexp, yojson { strict = false}] \ No newline at end of file -- cgit v1.2.3