Use serapeum's -> & defsubst

1 files changed, 6 insertions, 0 deletions

diff --git a/src/tg/send-message.lisp b/src/tg/send-message.lisp
index befecbe..7c24f87 100644
--- a/src/tg/send-message.lisp
+++ b/src/tg/send-message.lisp
@@ -2,6 +2,7 @@
 ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
 (defpackage :ukkoclot/src/tg/send-message
   (:documentation "sendMessage Telegram method")
+  (:import-from :serapeum :->)
   (:use
    :c2cl
    :ukkoclot/src/tg/force-reply
@@ -31,6 +32,11 @@
   (reply-parameters (or reply-parameters null) nil)
   (reply-markup (or inline-keyboard-markup reply-keyboard-markup reply-keyboard-remove force-reply null) nil))
 
+(-> reply-message (message
+                   string
+                   &key
+                   (:parse-mode (or parse-mode null))
+                   (:allow-sending-without-reply boolean)))
 (defun reply-message (msg text &key parse-mode allow-sending-without-reply)
   "Shortcut to reply to a given MSG."
   (send-message :chat-id (message-chat-id msg)