Style improvements who dis

3 files changed, 18 insertions, 18 deletions

diff --git a/lib/models/channel/channel.mli b/lib/models/channel/channel.mli
index 9e981ae..0d7431b 100644
--- a/lib/models/channel/channel.mli
+++ b/lib/models/channel/channel.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/channel/message/message.ml b/lib/models/channel/message/message.ml
index d3917e9..41174e1 100644
--- a/lib/models/channel/message/message.ml
+++ b/lib/models/channel/message/message.ml
@@ -10,7 +10,7 @@ let add_reaction msg (emoji:Emoji.t) =
     | None -> emoji.name

     in

     Http.create_reaction channel_id id e

-   

+

 

 let remove_reaction msg (emoji:Emoji.t) (user:User_t.t) =

     let `Message_id id = msg.id in

@@ -21,31 +21,31 @@ let remove_reaction msg (emoji:Emoji.t) (user:User_t.t) =
     | None -> emoji.name

     in

     Http.delete_reaction channel_id id e user_id

-   

+

 

 let clear_reactions msg =

     let `Message_id id = msg.id in

     let `Channel_id channel_id = msg.channel_id in

     Http.delete_reactions channel_id id

-   

+

 

 let delete msg =

     let `Message_id id = msg.id in

     let `Channel_id channel_id = msg.channel_id in

     Http.delete_message channel_id id

-   

+

 

 let pin msg =

     let `Message_id id = msg.id in

     let `Channel_id channel_id = msg.channel_id in

     Http.pin_message channel_id id

-   

+

 

 let unpin msg =

     let `Message_id id = msg.id in

     let `Channel_id channel_id = msg.channel_id in

     Http.unpin_message channel_id id

-   

+

 

 let reply msg content =

     Channel_id.say content msg.channel_id

@@ -58,11 +58,11 @@ let set_content msg cont =
     let `Channel_id channel_id = msg.channel_id in

     to_yojson { msg with content = cont; }

     |> Http.edit_message channel_id id

-   

+

 

 let set_embed msg embed =

     let `Message_id id = msg.id in

     let `Channel_id channel_id = msg.channel_id in

     to_yojson { msg with embeds = [embed]; }

     |> Http.edit_message channel_id id

-   
\ No newline at end of file
+

diff --git a/lib/models/channel/message/message.mli b/lib/models/channel/message/message.mli
index 56e1c98..0eba3af 100644
--- a/lib/models/channel/message/message.mli
+++ b/lib/models/channel/message/message.mli
@@ -31,9 +31,9 @@ val reply_with :
     ?tts:bool ->

     t ->

     Message_t.t Deferred.Or_error.t

-    

+

 (** Set the content of the message. *)

 val set_content : t -> string -> t Deferred.Or_error.t

 

 (** Set the embed of the message. *)

-val set_embed : t -> Embed.t -> t Deferred.Or_error.t
\ No newline at end of file
+val set_embed : t -> Embed.t -> t Deferred.Or_error.t