From af684566617ebce536e9f30693aa3e225af906c4 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Fri, 14 Dec 2018 10:52:36 -0700 Subject: There's a lot going on --- lib/client.ml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lib/client.ml') diff --git a/lib/client.ml b/lib/client.ml index 9211281..229c9cc 100644 --- a/lib/client.ml +++ b/lib/client.ml @@ -1,10 +1,12 @@ open Async -module Make(T : S.Token)(H : S.Handler) = struct +module Make(T : S.Token)(H : S.Handler_f) = struct include T module Http = Http.Make(T) - module Dispatch = Dispatch.Make(H) + module Models = Models.Make(Http) + module Handler = H.Make(Models) + module Dispatch = Dispatch.Make(Handler) module Sharder = Sharder.Make(Http)(Dispatch) type t = { -- cgit v1.2.3