From f50401c6bdfb205f34de3d04949fbaf3cd6876f8 Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Mon, 28 Sep 2015 20:51:58 +0600
Subject: Add types and derivers for the message decoder.

---
 src/message.ml | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 src/message.ml

(limited to 'src/message.ml')

diff --git a/src/message.ml b/src/message.ml
new file mode 100644
index 0000000..8f37c08
--- /dev/null
+++ b/src/message.ml
@@ -0,0 +1,11 @@
+type operation = {
+    method_name: string;
+    path: string list option;
+    value: string option;
+    options: (string * string) list option
+} [@@deriving yojson]
+
+type message = {
+    session_id: string;
+    ops: operation list;
+} [@@deriving yojson]
-- 
cgit v1.2.3