diff options
Diffstat (limited to 'src/inline-bots.lisp')
| -rw-r--r-- | src/inline-bots.lisp | 5 |
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) |