Style improvements who dis

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