diff options
| author | Adelyn Breedlove <[email protected]> | 2019-01-17 00:01:54 -0700 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2019-01-17 00:01:54 -0700 |
| commit | 2d023e5cf9d880349686c137e530581765e65891 (patch) | |
| tree | 041cb510c57e65fa6732c89e75e346ab17a30f56 /lib/client.ml | |
| parent | eliminate all functors in favour of a simpler approach (diff) | |
| download | disml-2d023e5cf9d880349686c137e530581765e65891.tar.xz disml-2d023e5cf9d880349686c137e530581765e65891.zip | |
more mlis
Diffstat (limited to 'lib/client.ml')
| -rw-r--r-- | lib/client.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/client.ml b/lib/client.ml index a60bf03..7504604 100644 --- a/lib/client.ml +++ b/lib/client.ml @@ -5,10 +5,8 @@ type t = { token: string; } -let create token = - Config.token := token - -let start ?count () = +let start ?count token = + Config.token := token; Sharder.start ?count () >>| fun sharder -> { sharder; token = !Config.token; } |