diff options
author | Colin Okay <cbeok@protonmail.com> | 2020-04-13 05:59:25 -0500 |
---|---|---|
committer | Colin Okay <cbeok@protonmail.com> | 2020-04-13 05:59:25 -0500 |
commit | b9e1005215d14106d338a3fc374b8ab49a5be272 (patch) | |
tree | b15b02d45096fe08db468de8859a741d1d2c50a9 | |
parent | 01d7494630925aacb81afdbff764a68c429ee5cb (diff) |
doest try uploading what isn't there, deleted tmp files
-rw-r--r-- | posterbot.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
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 () |