From c3d6e15bb89d4a93a2fa486db6c8e126baf4da2e Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Mon, 21 Jan 2019 08:52:33 -0700
Subject: folder restructure

---
 lib/models/message.ml | 70 ---------------------------------------------------
 1 file changed, 70 deletions(-)
 delete mode 100644 lib/models/message.ml

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

diff --git a/lib/models/message.ml b/lib/models/message.ml
deleted file mode 100644
index f772c48..0000000
--- a/lib/models/message.ml
+++ /dev/null
@@ -1,70 +0,0 @@
-open Core
-open Async
-include Message_t
-
-let add_reaction msg (emoji:Emoji.t) =
-    let e = match emoji.id with
-    | Some i -> Printf.sprintf "%s:%d" emoji.name i
-    | None -> emoji.name
-    in
-    Http.create_reaction msg.channel_id msg.id e
-    >>| Result.map ~f:ignore
-
-let remove_reaction msg (emoji:Emoji.t) (user:User_t.t) =
-    let e = match emoji.id with
-    | Some i -> Printf.sprintf "%s:%d" emoji.name i
-    | None -> emoji.name
-    in
-    Http.delete_reaction msg.channel_id msg.id e user.id
-    >>| Result.map ~f:ignore
-
-let clear_reactions msg =
-    Http.delete_reactions msg.channel_id msg.id
-    >>| Result.map ~f:ignore
-
-let delete msg =
-    Http.delete_message msg.channel_id msg.id
-    >>| Result.map ~f:ignore
-
-let pin msg =
-    Http.pin_message msg.channel_id msg.id
-    >>| Result.map ~f:ignore
-
-let unpin msg =
-    Http.unpin_message msg.channel_id msg.id
-    >>| Result.map ~f:ignore
-
-let reply msg cont =
-    let rep = `Assoc [("content", `String cont)] in
-    Http.create_message msg.channel_id rep
-    >>| Result.map ~f:Message_t.of_yojson_exn
-
-let reply_with ?embed ?content ?file ?(tts=false) msg =
-    let embed = match embed with
-    | Some e -> Embed.to_yojson e
-    | None -> `Null in
-    let content = match content with
-    | Some c -> `String c
-    | None -> `Null in
-    let file = match file with
-    | Some f -> `String f
-    | None -> `Null in
-    let () = match embed, content with
-    | `Null, `Null -> raise Channel.Invalid_message
-    | _ -> () in
-    Http.create_message (msg.channel_id) (`Assoc [
-        ("embed", embed);
-        ("content", content);
-        ("file", file);
-        ("tts", `Bool tts);
-    ]) >>| Result.map ~f:Message_t.of_yojson_exn
-
-let set_content msg cont =
-    to_yojson { msg with content = cont; }
-    |> Http.edit_message msg.channel_id msg.id
-    >>| Result.map ~f:Message_t.of_yojson_exn
-
-let set_embed msg embed =
-    to_yojson { msg with embeds = [embed]; }
-    |> Http.edit_message msg.channel_id msg.id
-    >>| Result.map ~f:Message_t.of_yojson_exn
\ No newline at end of file
-- 
cgit v1.2.3