diff --git a/racketmq/private/util.rkt b/racketmq/private/util.rkt index 5a42a8c..792e717 100644 --- a/racketmq/private/util.rkt +++ b/racketmq/private/util.rkt @@ -147,4 +147,4 @@ (define (canonical-url baseurl path) (define b (url->resource (string->url baseurl))) (url->string (resource->url (struct-copy web-resource b - [path (append-url-path (web-resource-path b) path)])))) + [path (append-resource-path (web-resource-path b) path)]))))