diff options
| author |  Uko Kokņevičs | 2025-10-12 15:30:52 +0300 |
|---|---|---|
| committer | Uko Kokņevičs | 2025-10-12 15:30:52 +0300 |
| commit | a9708dbdd58245b0078c3609f3fba942409eede8 (patch) | |
| tree | c722ed796504bafdc8038cc5c69537ae34add556 /src/main.lisp | |
| parent | Add Animation and PhotoSize types (diff) | |
| download | ukkoclot-a9708dbdd58245b0078c3609f3fba942409eede8.tar.gz ukkoclot-a9708dbdd58245b0078c3609f3fba942409eede8.tar.xz ukkoclot-a9708dbdd58245b0078c3609f3fba942409eede8.zip | |
msginfo: pretty print the response
Diffstat (limited to 'src/main.lisp')
| -rw-r--r-- | src/main.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/main.lisp b/src/main.lisp index 6d83ff4..96f73a0 100644 --- a/src/main.lisp +++ b/src/main.lisp | |||
| @@ -222,7 +222,7 @@ | |||
| 222 | 222 | ||
| 223 | ((and (equal simple-cmd "msginfo") | 223 | ((and (equal simple-cmd "msginfo") |
| 224 | (message-reply-to-message msg)) | 224 | (message-reply-to-message msg)) |
| 225 | (reply-message bot it (fixup-value it))) | 225 | (reply-message bot it (let ((*print-pretty* t)) (fixup-value it)))) |
| 226 | 226 | ||
| 227 | ((equal simple-cmd "ping") | 227 | ((equal simple-cmd "ping") |
| 228 | (let* ((start-time (get-internal-real-time)) | 228 | (let* ((start-time (get-internal-real-time)) |