aboutsummaryrefslogtreecommitdiff
path: root/lib/models/id
diff options
context:
space:
mode:
Diffstat (limited to 'lib/models/id')
-rw-r--r--lib/models/id/channel_id.mli16
-rw-r--r--lib/models/id/guild_id.ml4
2 files changed, 10 insertions, 10 deletions
diff --git a/lib/models/id/channel_id.mli b/lib/models/id/channel_id.mli
index 20987c5..74010a5 100644
--- a/lib/models/id/channel_id.mli
+++ b/lib/models/id/channel_id.mli
@@ -10,15 +10,15 @@ exception No_message_found
{3 Examples}
{[
- open Core
- open Disml
+open Core
+open Disml
- let check_command (msg : Message.t) =
- if String.is_prefix ~prefix:"!hello" msg.content then
- let embed = Embed.(default |> title "Hello World!") in
- Channel_id.send_message ~embed msg.channel_id >>> ignore
+let check_command (msg : Message.t) =
+ if String.is_prefix ~prefix:"!hello" msg.content then
+ let embed = Embed.(default |> title "Hello World!") in
+ Channel_id.send_message ~embed msg.channel_id >>> ignore
- Client.message_create := check_command
+Client.message_create := check_command
]}
*)
val send_message :
@@ -43,4 +43,4 @@ val get_messages :
val broadcast_typing : t -> unit Deferred.Or_error.t
val get_pins : t -> Message_t.t list Deferred.Or_error.t
val bulk_delete : Snowflake.t list -> t -> unit Deferred.Or_error.t
-(* TODO more things related to guild channels *) \ No newline at end of file
+(* TODO more things related to guild channels *)
diff --git a/lib/models/id/guild_id.ml b/lib/models/id/guild_id.ml
index 6b3385c..d4db185 100644
--- a/lib/models/id/guild_id.ml
+++ b/lib/models/id/guild_id.ml
@@ -39,7 +39,7 @@ let create_channel ~mode ~name guild =
("type", `Int kind);
])
-let delete guild =
+let delete guild =
Http.delete_guild (get_id guild)
let get_ban ~id guild =
@@ -101,4 +101,4 @@ let unban_user ~id ?reason guild =
let payload = match reason with
| Some r -> `Assoc [("reason", `String r)]
| None -> `Null
- in Http.guild_ban_remove (get_id guild) id payload \ No newline at end of file
+ in Http.guild_ban_remove (get_id guild) id payload