Use serapeum's -> & defsubst

1 files changed, 5 insertions, 2 deletions

diff --git a/src/tg/delete-message.lisp b/src/tg/delete-message.lisp
index 2b332df..44fccd2 100644
--- a/src/tg/delete-message.lisp
+++ b/src/tg/delete-message.lisp
@@ -3,6 +3,7 @@
 (defpackage :ukkoclot/src/tg/delete-message
   (:documentation "deleteMessage Telegram method")
   (:use :c2cl :ukkoclot/src/tg/message :ukkoclot/src/tg/method-macros :ukkoclot/src/tg/send-animation)
+  (:import-from :serapeum :->)
   (:export :delete-message :try-delete-message))
 (in-package :ukkoclot/src/tg/delete-message)
 
@@ -10,6 +11,7 @@
   (chat-id (or integer string))
   (message-id integer))
 
+(-> try-delete-message (message) boolean)
 (defun try-delete-message (msg)
   "Attempt to delete the MSG, on failure reply with a GIF of the DO NOT cat."
   (handler-case
@@ -17,6 +19,7 @@
                       :message-id (message-id msg))
     (error ()
       (handler-case
-          (reply-animation msg #P"blob/do-not.mp4"
-                           :allow-sending-without-reply nil)
+          (prog1 nil
+            (reply-animation msg #P"blob/do-not.mp4"
+                             :allow-sending-without-reply nil))
         (error () nil)))))