diff options
| author | Mishio595 <[email protected]> | 2018-11-25 16:13:59 -0700 |
|---|---|---|
| committer | Mishio595 <[email protected]> | 2018-11-25 16:13:59 -0700 |
| commit | 048fe6388e84eaccb3440fe0d0c7101b3877701d (patch) | |
| tree | ce3afe536a510b58a21a049a519697280f70a040 /lib/client.ml | |
| parent | A lot is going on... (diff) | |
| download | disml-048fe6388e84eaccb3440fe0d0c7101b3877701d.tar.xz disml-048fe6388e84eaccb3440fe0d0c7101b3877701d.zip | |
Naming consistency
Diffstat (limited to 'lib/client.ml')
| -rw-r--r-- | lib/client.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/client.ml b/lib/client.ml index 374287c..e88b1d5 100644 --- a/lib/client.ml +++ b/lib/client.ml @@ -6,7 +6,7 @@ type t = { token: string; } -let make ~handler token = +let create ~handler token = { sharder = Ivar.create (); handler; @@ -19,12 +19,12 @@ let start ?count client = Ivar.fill_if_empty client.sharder sharder; client -let set_status client status = +let set_status ~status client = Ivar.read client.sharder >>= fun sharder -> Sharder.set_status sharder status -let set_status_with client f = +let set_status_with ~f client = Ivar.read client.sharder >>= fun sharder -> Sharder.set_status_with sharder f |