[nongnu] elpa/hyperdrive e92ef27421: Fix: (he/api) Handle explicit :then 'sync

[ELPA Syncer]

branch: elpa/hyperdrive
commit e92ef2742104e97d5d3064e46cdbedd6a16f7e6e
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Fix: (he/api) Handle explicit :then 'sync
---
 hyperdrive-lib.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 60fd48e401..ec0a1910ab 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -210,14 +210,16 @@ response."
   ;; Always use :as 'response
   (cl-assert (null (plist-get rest :as)))
   (setf (plist-get rest :as) 'response)
+  (unless (map-elt rest :then) (setf (map-elt rest :then) 'sync))
   (pcase-let* (((map :then) rest))
-    (when then
+    (unless (eq 'sync then)
       (setf (plist-get rest :then)
             (lambda (response)
               (he//api-then entry response)
               (funcall then response))))
     (let ((response (apply #'h/api method (he/url entry) rest)))
-      (unless then (funcall 'he//api-then entry response))
+      (when (eq 'sync then)
+        (funcall 'he//api-then entry response))
       response)))
 
 (defun he//api-then (entry response)