|
|
@ -39,10 +39,12 @@ |
|
|
|
(string->xexpr |
|
|
|
(let [(username (path/param-path (car (url-path (request-uri req))))) |
|
|
|
(page-n (hash-ref (list->hash (url-query (request-uri req))) 'p))] |
|
|
|
(check-cache (user-cache-params username |
|
|
|
(match (positive? (string->number page-n)) |
|
|
|
[#t (check-cache (user-cache-params username |
|
|
|
page-n) |
|
|
|
(λ () (retrieve-videos username (string->number page-n))) |
|
|
|
identity))))) |
|
|
|
identity)] |
|
|
|
[_ (no-more username)]))))) |
|
|
|
|
|
|
|
;; Adds a new resource to the lazyplay queue |
|
|
|
(define (add-name req) |
|
|
|