diff --git a/http-easy-lib/http-easy/private/pool.rkt b/http-easy-lib/http-easy/private/pool.rkt index bb0caa9..ca0a2f4 100644 --- a/http-easy-lib/http-easy/private/pool.rkt +++ b/http-easy-lib/http-easy/private/pool.rkt @@ -1,8 +1,8 @@ #lang racket/base -(require (prefix-in d: data/pool) - net/http-client +(require net/http-client racket/contract/base + (prefix-in d: data/pool) "error.rkt" "logger.rkt" "timeout.rkt") diff --git a/http-easy-lib/http-easy/private/url.rkt b/http-easy-lib/http-easy/private/url.rkt index 773d083..f6d031a 100644 --- a/http-easy-lib/http-easy/private/url.rkt +++ b/http-easy-lib/http-easy/private/url.rkt @@ -126,7 +126,7 @@ (define (is-percent-encoded? s [encode uri-encode]) (define num-%-matches (length (regexp-match* #rx"%" s))) - (or (and (> num-%-matches 0) + (or (and (positive? num-%-matches) (= num-%-matches (length (regexp-match* #px"%[a-fA-F0-9]{2}" s)))) (and (eq? encode form-urlencoded-encode) (regexp-match? #rx"[+]" s))))