summaryrefslogtreecommitdiff
path: root/src/inline-bots.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/inline-bots.lisp')
-rw-r--r--src/inline-bots.lisp5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/inline-bots.lisp b/src/inline-bots.lisp
index 3ed85e9..3c6b7c4 100644
--- a/src/inline-bots.lisp
+++ b/src/inline-bots.lisp
@@ -1,7 +1,8 @@
1;; SPDX-License-Identifier: EUPL-1.2 1;; SPDX-License-Identifier: EUPL-1.2
2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> 2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
3(defpackage :ukkoclot/inline-bots 3(defpackage :ukkoclot/inline-bots
4 (:use :c2cl :ukkoclot/bot :ukkoclot/config :ukkoclot/log :ukkoclot/tg-types) 4 (:use :c2cl :ukkoclot/bot :ukkoclot/config :ukkoclot/tg-types)
5 (:import-from :log)
5 (:local-nicknames (:db :ukkoclot/db)) 6 (:local-nicknames (:db :ukkoclot/db))
6 (:export :blacklist-inline-bot :on-inline-bot :whitelist-inline-bot)) 7 (:export :blacklist-inline-bot :on-inline-bot :whitelist-inline-bot))
7(in-package :ukkoclot/inline-bots) 8(in-package :ukkoclot/inline-bots)
@@ -17,7 +18,7 @@
17 (if (eq ty :whitelisted) 18 (if (eq ty :whitelisted)
18 t 19 t
19 (progn 20 (progn
20 (log-info "Deleting an unallowed inline bot message from ~A ~A" 21 (log:info "Deleting an unallowed inline bot message from ~A ~A"
21 (user-username via) 22 (user-username via)
22 (user-id via)) 23 (user-id via))
23 (try-delete-message bot msg) 24 (try-delete-message bot msg)