From b9e1005215d14106d338a3fc374b8ab49a5be272 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 13 Apr 2020 05:59:25 -0500 Subject: doest try uploading what isn't there, deleted tmp files --- posterbot.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'posterbot.lisp') diff --git a/posterbot.lisp b/posterbot.lisp index 7e66561..1c04018 100644 --- a/posterbot.lisp +++ b/posterbot.lisp @@ -56,8 +56,10 @@ is, downloads the image and posts it to the current room." (alexandria:read-file-into-byte-vector file-path) :content-type (make-mime-type word))))) (if mxc-uri - (send-image-message *posterbot* *room-id* file-name mxc-uri - :info (list :|mimetype| (make-mime-type word))) + (progn + (send-image-message *posterbot* *room-id* file-name mxc-uri + :info (list :|mimetype| (make-mime-type word))) + (uiop:delete-file-if-exists file-path)) (send-text-message *posterbot* *room-id* "I have failed you :(")))))) (defun start-posterbot () -- cgit v1.2.3