diff options
Diffstat (limited to 'haunt/jakob/dynamic/captcha.scm')
| -rw-r--r-- | haunt/jakob/dynamic/captcha.scm | 3 |
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) |