diff options
| author | Adelyn Breelove <[email protected]> | 2019-02-15 16:12:30 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2019-02-15 16:12:30 -0700 |
| commit | 50f15cca8e64834b8ceca70e7f6682b72dc05a86 (patch) | |
| tree | 5437c56ffaa1274e4bba13597109fa129812c81a | |
| parent | Fix shard close code log (diff) | |
| download | disml-50f15cca8e64834b8ceca70e7f6682b72dc05a86.tar.xz disml-50f15cca8e64834b8ceca70e7f6682b72dc05a86.zip | |
slight legibility change
| -rw-r--r-- | bin/commands.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/commands.ml b/bin/commands.ml index 131925a..d488b64 100644 --- a/bin/commands.ml +++ b/bin/commands.ml @@ -129,5 +129,5 @@ let delete_guilds message _args = let all = Cache.GuildMap.(map guilds ~f:(fun g -> Guild.delete g >>| function | Ok () -> res := Printf.sprintf "%s\nDeleted %s" !res g.name | Error _ -> ()) |> to_alist) |> List.map ~f:(snd) in - Deferred.all all >>> fun _ -> - Message.reply message !res >>> ignore
\ No newline at end of file + Deferred.all all >>= (fun _ -> + Message.reply message !res) >>> ignore
\ No newline at end of file |