From d9a1f977b7595f4fd829ece4cfa52f9fe5dd76e9 Mon Sep 17 00:00:00 2001
From: Boutade <thegoofist@protonmail.com>
Date: Thu, 26 Sep 2019 09:01:45 -0500
Subject: removed debugging gunk

---
 granolin.lisp | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/granolin.lisp b/granolin.lisp
index 7137313..e8e48b2 100644
--- a/granolin.lisp
+++ b/granolin.lisp
@@ -337,12 +337,8 @@
   (let ((url (format nil +text-message-path+ room-id (txn-id client)))
         (body (list :|msgtype| "m.text"
                     :|body| message)))
-    (format t "url: ~a~%" url)
-    (send (client url body :wrap make-basic-json)
-          (format t "Message Sent: ~a ~a" room-id message)
-          (format t "Message Failed To Send ~a ~a"
-                  *response-status*
-                  (flexi-streams:octets-to-string *response-body*)))))
+    (send (client url body :wrap make-basic-json) t)))
+
 
 ;;; bot loop
 
-- 
cgit v1.2.3