[nongnu] elpa/hyperdrive ad0dba6928 26/42: Fix: (he/api) Handle synchronous case

[ELPA Syncer]

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

    Fix: (he/api) Handle synchronous case
---
 hyperdrive-lib.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 7bbb3daecf..ff8f4bf2bb 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -218,12 +218,14 @@ REST is passed to `h/api', which see.
   (cl-assert (null (plist-get rest :as)))
   (plist-put rest :as 'response)
 
-  (pcase-let* (((map :then) rest)
-               (then* (lambda (response)
-                        (he//api-then entry response)
-                        (funcall then response))))
-    (plist-put rest :then then*)
-    (apply #'h/api method (he/url entry) rest)))
+  (pcase-let* (((map :then) rest))
+    (when then
+      (plist-put 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))
+      response)))
 
 (defun he//api-then (entry response)
   "Update ENTRY's metadata according to RESPONSE.