From c046760eb599e42226c683aecbe33753dfc4d500 Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Wed, 12 Dec 2018 15:23:14 -0700
Subject: Complete event dispatch

---
 lib/client.ml | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'lib/client.ml')

diff --git a/lib/client.ml b/lib/client.ml
index b27a2ee..018f3e6 100644
--- a/lib/client.ml
+++ b/lib/client.ml
@@ -1,21 +1,20 @@
 open Async
 
-module Make(T : S.Token) = struct
+module Make(T : S.Token)(H : S.Handler) = struct
     include T
 
     module Http = Http.Make(T)
-    module Sharder = Sharder.Make(Http)
+    module Dispatch = Dispatch.Make(H)
+    module Sharder = Sharder.Make(Http)(Dispatch)
 
     type t = {
         sharder: Sharder.t Ivar.t;
-        handler: string Pipe.Writer.t;
         token: string;
     }
 
-    let init ~handler () =
+    let init () =
         {
             sharder = Ivar.create ();
-            handler;
             token;
         }
 
-- 
cgit v1.2.3