Try to work around broken connections

1 files changed, 6 insertions, 3 deletions

diff --git a/src/bot/impl.lisp b/src/bot/impl.lisp
index 57a9572..162938e 100644
--- a/src/bot/impl.lisp
+++ b/src/bot/impl.lisp
@@ -3,6 +3,7 @@
 (defpackage :ukkoclot/bot/impl
   (:use :c2cl :iterate :ukkoclot/config :ukkoclot/log)
   (:import-from :anaphora :aand :acond :it)
+  (:import-from :cl+ssl)
   (:import-from :dex)
   (:import-from :ukkoclot/strings :lisp->snake-case)
   (:local-nicknames
@@ -86,9 +87,11 @@
               (fixup-value value)))))
 
 (defun req (uri method content)
-  ;; We deal with this manually
-  (handler-bind ((dex:http-request-too-many-requests #'dex:ignore-and-continue))
-    (dex:request uri :method method :content content)))
+  (let ((retrier (dex:retry-request 5 :interval 1)))
+    (handler-case (dex:request uri :method method :content content)
+      (dex:http-request-too-many-requests (e) (dex:ignore-and-continue e)) ; We deal with too many reqs manually
+      (dex:http-request-failed (e) (funcall retrier e))
+      (cl+ssl::ssl-error (e) (funcall retrier e)))))
 
 (defun do-call% (bot method uri type args-encoded)
   (let ((body (req uri method args-encoded)))