diff options
Diffstat (limited to 'lib/client.ml')
| -rw-r--r-- | lib/client.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/client.ml b/lib/client.ml index 7c2d532..374287c 100644 --- a/lib/client.ml +++ b/lib/client.ml @@ -2,7 +2,7 @@ open Async type t = { sharder: Sharder.t Ivar.t; - handler: (string * Model.t) Pipe.Writer.t; + handler: string Pipe.Writer.t; token: string; } @@ -14,7 +14,7 @@ let make ~handler token = } let start ?count client = - Sharder.start ?count ~handler:client.handler client.token + Sharder.start ?count client.token >>| fun sharder -> Ivar.fill_if_empty client.sharder sharder; client |