aboutsummaryrefslogtreecommitdiff
path: root/lib/client.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/client.ml')
-rw-r--r--lib/client.ml6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/client.ml b/lib/client.ml
index 229c9cc..6ee4a3a 100644
--- a/lib/client.ml
+++ b/lib/client.ml
@@ -1,7 +1,5 @@
-open Async
-
module Make(T : S.Token)(H : S.Handler_f) = struct
- include T
+ open Async
module Http = Http.Make(T)
module Models = Models.Make(Http)
@@ -14,6 +12,8 @@ module Make(T : S.Token)(H : S.Handler_f) = struct
token: string;
}
+ let token = T.token
+
let start ?count () =
Sharder.start ?count ()
>>| fun sharder ->