diff options
Diffstat (limited to 'bin')
| -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 |