1 files changed, 23 insertions, 15 deletions

diff --git a/src/transport.lisp b/src/transport.lisp
index 941341a..d47db4d 100644
--- a/src/transport.lisp
+++ b/src/transport.lisp
@@ -1,8 +1,8 @@
 ;; SPDX-License-Identifier: EUPL-1.2
 ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
 (defpackage :ukkoclot/transport
+  (:documentation "Package dealing with HTTP calls.")
   (:use :c2cl)
-  (:import-from :anaphora :aand :acond :it)
   (:import-from :cl+ssl)
   (:import-from :dex)
   (:import-from :log)
@@ -14,6 +14,7 @@
 (in-package :ukkoclot/transport)
 
 (defun req (uri method content)
+  "Wrapper function for making a request."
   (let ((retrier (dex:retry-request 5 :interval 1))
         ;; This is needed to avoid hangs,
         ;; see https://github.com/fukamachi/dexador/issues/91#issuecomment-1093472364
@@ -25,22 +26,29 @@
       (cl+ssl::ssl-error (e) (funcall retrier e)))))
 
 (defun do-call% (method uri out-type args-encoded)
-  (let ((body (req uri method args-encoded)))
-    (let ((hash (jzon:parse body)))
-      (acond
-        ((gethash "ok" hash) (parse-value out-type (gethash "result" hash)))
-        ((aand (gethash "parameters" hash)
-               (gethash "retry_after" it))
-         (log:info "Should sleep for ~A seconds" it)
-         (sleep it)
-         (log:info "Good morning!")
-         (do-call% method uri out-type args-encoded))
-        (t (error "TG error ~A: ~A ~:A"
-                  (gethash "error_code" hash)
-                  (gethash "description" hash)
-                  (gethash "parameters" hash)))))))
+  "Internal function with the arguments already encoded.
+
+See `do-call'."
+  (let* ((body (req uri method args-encoded))
+         (hash (jzon:parse body)))
+    (if (gethash "ok" hash)
+        (parse-value out-type (gethash "result" hash))
+        (let* ((error-code (gethash "error_code" hash))
+               (description (gethash "description" hash))
+               (parameters (gethash "parameters" hash))
+               (retry-after (when parameters (gethash "retry_after" parameters))))
+          (cond
+            (retry-after
+             (log:info "Should sleep for ~A seconds" retry-after)
+             (sleep retry-after)
+             (log:info "Good morning!")
+             (do-call% method uri out-type args-encoded))
+            (t
+             (error "TG error ~A: ~A ~:A"
+                    error-code description parameters)))))))
 
 (defun do-call (bot method path out-type args)
+  "Perform a HTTP call."
   (let ((uri (concatenate 'string (bot-base-uri bot) path))
         (args-encoded (fixup-args args)))
     (log:debug "~A .../~A ~S" method path args-encoded)