From 9f46d74106dc83deae28e894699cbf4a4d2ba184 Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Fri, 17 Oct 2025 03:20:24 +0300
Subject: Try to avoid hanging when making requests

---
 src/transport.lisp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/transport.lisp b/src/transport.lisp
index 39198dd..941341a 100644
--- a/src/transport.lisp
+++ b/src/transport.lisp
@@ -14,8 +14,11 @@
 (in-package :ukkoclot/transport)
 
 (defun req (uri method content)
-  (let ((retrier (dex:retry-request 5 :interval 1)))
-    (handler-case (dex:request uri :method method :content content)
+  (let ((retrier (dex:retry-request 5 :interval 1))
+        ;; This is needed to avoid hangs,
+        ;; see https://github.com/fukamachi/dexador/issues/91#issuecomment-1093472364
+        (cl+ssl:*default-unwrap-stream-p* nil))
+    (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))
-- 
cgit v1.2.3