diff options
| author | Adelyn Breelove <[email protected]> | 2019-01-23 15:56:57 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2019-01-23 15:56:57 -0700 |
| commit | cd8c706d092c4fecbea753b90b42bb9f30e0ed17 (patch) | |
| tree | 058fe1747d49264b52274c3cf9c5930bd43ee6b4 /lib/models/guild/guild.ml | |
| parent | Update README (diff) | |
| download | disml-cd8c706d092c4fecbea753b90b42bb9f30e0ed17.tar.xz disml-cd8c706d092c4fecbea753b90b42bb9f30e0ed17.zip | |
Improve HTTP stuff
Diffstat (limited to 'lib/models/guild/guild.ml')
| -rw-r--r-- | lib/models/guild/guild.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/models/guild/guild.ml b/lib/models/guild/guild.ml index 253ea07..926b152 100644 --- a/lib/models/guild/guild.ml +++ b/lib/models/guild/guild.ml @@ -7,12 +7,12 @@ include Impl.Guild(Guild_t) let get_member ~id guild = match List.find ~f:(fun m -> m.user.id = id) guild.members with | Some m -> Deferred.Or_error.return m - | None -> Http.get_member (get_id guild) id >>| Result.map ~f:Member_t.of_yojson_exn + | None -> Http.get_member (get_id guild) id let get_channel ~id guild = match List.find ~f:(fun c -> Channel_t.get_id c = id) guild.channels with | Some c -> Deferred.Or_error.return c - | None -> Http.get_channel id >>| Result.map ~f:(fun c -> Channel_t.(channel_wrapper_of_yojson_exn c |> wrap)) + | None -> Http.get_channel id (* TODO add HTTP fallback *) let get_role ~id guild = |