From c937240fdd2036edd493debb76117165e4084e8b Mon Sep 17 00:00:00 2001
From: Matias Goldfeld <2000matu@gmail.com>
Date: Thu, 28 Jan 2021 02:26:36 -0500
Subject: Started conversion to ppx_yojson_conv

---
 lib/models/guild/guild.ml | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'lib/models/guild/guild.ml')

diff --git a/lib/models/guild/guild.ml b/lib/models/guild/guild.ml
index 14861fe..f67d5c2 100644
--- a/lib/models/guild/guild.ml
+++ b/lib/models/guild/guild.ml
@@ -113,9 +113,7 @@ let unban_user ~id ?reason guild =
 let get_member ~(id:User_id_t.t) guild =
     match List.find ~f:(fun m -> User_id.compare m.user.id id = 0) guild.members with
     | Some m -> Deferred.Or_error.return m
-    | None ->
-        let `User_id id = id in
-        Http.get_member (get_id guild) id
+    | None -> Http.get_member (get_id guild) (User_id.get_id id)
 
 let get_channel ~(id:Channel_id_t.t) guild =
     let `Channel_id id = id in
-- 
cgit v1.2.3