Cope with renamed resource-path function
This commit is contained in:
parent
479faca644
commit
df6bd3eb2a
|
@ -147,4 +147,4 @@
|
||||||
(define (canonical-url baseurl path)
|
(define (canonical-url baseurl path)
|
||||||
(define b (url->resource (string->url baseurl)))
|
(define b (url->resource (string->url baseurl)))
|
||||||
(url->string (resource->url (struct-copy web-resource b
|
(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)]))))
|
||||||
|
|
Loading…
Reference in New Issue