1 files changed, 7 insertions, 3 deletions

diff --git a/src/transport.lisp b/src/transport.lisp
index 12e09f4..52d0dcf 100644
--- a/src/transport.lisp
+++ b/src/transport.lisp
@@ -29,8 +29,12 @@
     (handler-case (dex:request uri :method method :content content :read-timeout 60 :connect-timeout 60)
       ;; We deal with too many requests manually
       (dex:http-request-too-many-requests (e) (dex:ignore-and-continue e))
-      (dex:http-request-failed (e) (funcall retrier e))
-      (cl+ssl::ssl-error (e) (funcall retrier e)))))
+      (dex:http-request-failed (e)
+        (log:warn "HTTP request failed: ~A" e)
+        (funcall retrier e))
+      (cl+ssl::ssl-error (e)
+        (log:warn "SSL error: ~A" e)
+        (funcall retrier e)))))
 
 ;; TODO: (alist string t)
 (-> do-call% (http-method string t list) t)
@@ -39,7 +43,7 @@
 
 See `do-call'."
   (let* ((body (req uri method args-encoded))
-         (hash (jzon:parse body)))
+         (hash (if body (jzon:parse body) (error "TG replied with nothing!"))))
     (if (gethash "ok" hash)
         (parse-value out-type (gethash "result" hash))
         (let* ((error-code (gethash "error_code" hash))