removed debugging gunk

1 files 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