[dynamic] Implement client-side of POW captcha

1 files changed, 1 insertions, 2 deletions

diff --git a/haunt/jakob/dynamic/captcha.scm b/haunt/jakob/dynamic/captcha.scm
index ab90f55..0f6e0ba 100644
--- a/haunt/jakob/dynamic/captcha.scm
+++ b/haunt/jakob/dynamic/captcha.scm
@@ -255,7 +255,7 @@ internally-defined `time-to-live-seconds'."
 
 (define (validate-proof-of-work! prefix challenge-id)
   (define zero-prefix (string-join (map (lambda (_) "0") (iota %hardness)) ""))
-  (unless (member challenge-id (id-queue-free pow-challenge-id-queue))
+  (when (member challenge-id (id-queue-free pow-challenge-id-queue))
     (raise (condition (&message
                        (message "No such challenge ID")))))
   (let* ((challenge (hash-ref pow-challenges challenge-id))
@@ -269,7 +269,6 @@ internally-defined `time-to-live-seconds'."
     (when challenge
       (release-id! challenge-id pow-challenge-id-queue))
     (and (= 32 (string-length prefix))
-         (not (member challenge-id (id-queue-free pow-challenge-id-queue)))
          (string-prefix? zero-prefix hash-value))))
 
 (define (make-pow-challenge! request body)