Source

henrietta-cache / henrietta-cache.scm

Diff from to

File henrietta-cache.scm

 (define (replace-uri-patterns uri patterns)
   (string-translate* uri (map (lambda (pattern)
                                 (cons (conc "{" (car pattern) "}")
-                                      (->string (cdr pattern))))
+                                      (uri-encode-string (->string (cdr pattern)))))
                               patterns)))
 
 ;; We could also use sendfile egg here, but do we want the dependency?