diff options
| author | Adelyn Breedlove <[email protected]> | 2019-03-02 18:30:46 -0700 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2019-03-02 18:30:46 -0700 |
| commit | 6163027a715b31d87e1f8e4fde8f7f3b4db2bc42 (patch) | |
| tree | d84b6f956fd43d8a3bb2dff3a1bde9e27dcc1cc2 /lib/client.ml | |
| parent | Style improvements who dis (diff) | |
| download | disml-6163027a715b31d87e1f8e4fde8f7f3b4db2bc42.tar.xz disml-6163027a715b31d87e1f8e4fde8f7f3b4db2bc42.zip | |
Initial Lwt changes. Successfully compiles
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 cf7bd77..50966e7 100644 --- a/lib/client.ml +++ b/lib/client.ml @@ -1,4 +1,4 @@ -open Async
+open Lwt.Infix
include Dispatch
type t =
@@ -8,7 +8,7 @@ type t = let start ?count ?compress ?(large=250) token =
Client_options.token := token;
Sharder.start ?count ?compress ~large_threshold:large ()
- >>| fun sharder ->
+ >|= fun sharder ->
{ sharder; }
let set_status ?status ?kind ?name ?since ?url client =
|