1 files changed, 21 insertions, 21 deletions
diff --git a/lib/models/guild/guild.ml b/lib/models/guild/guild.ml
index 812a49e..b1e8bfe 100644
--- a/lib/models/guild/guild.ml
+++ b/lib/models/guild/guild.ml
@@ -1,22 +1,22 @@
-open Core
-open Async
-
-include Guild_t
-include Impl.Guild(Guild_t)
-
-let get_member ~(id:User_id_t.t) guild =
-    match List.find ~f:(fun m -> m.user.id = id) guild.members with
-    | Some m -> Deferred.Or_error.return m
-    | None ->
-        let `User_id id = id in
-        Http.get_member (get_id guild) id
-
-let get_channel ~(id:Channel_id_t.t) guild =
-    let `Channel_id id = id in
-    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
-
-(* TODO add HTTP fallback *)
-let get_role ~(id:Role_id.t) guild =
+open Core
+open Async
+
+include Guild_t
+include Impl.Guild(Guild_t)
+
+let get_member ~(id:User_id_t.t) guild =
+    match List.find ~f:(fun m -> m.user.id = id) guild.members with
+    | Some m -> Deferred.Or_error.return m
+    | None ->
+        let `User_id id = id in
+        Http.get_member (get_id guild) id
+
+let get_channel ~(id:Channel_id_t.t) guild =
+    let `Channel_id id = id in
+    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
+
+(* TODO add HTTP fallback *)
+let get_role ~(id:Role_id.t) guild =
     List.find ~f:(fun r -> r.id = id) guild.roles
 \ No newline at end of file