diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-01-10 17:28:12 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-01-10 17:28:12 +0000 |
| commit | 57cbac891e6771677b0f5ca906c32e5c5dff701d (patch) | |
| tree | 186cffa6dc0059dc3ce15d419c38c4e5abdc6f56 | |
| parent | c7e3a1bd0b0648561211f52bd9f674358da59223 (diff) | |
| download | data-service-57cbac891e6771677b0f5ca906c32e5c5dff701d.tar data-service-57cbac891e6771677b0f5ca906c32e5c5dff701d.tar.gz | |
Delete unused assoc-ref-multiple function
| -rw-r--r-- | guix-data-service/web/controller.scm | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index 71b2429..f481cc2 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -90,14 +90,6 @@ ;; (render-html (error-page message)))) ) -(define (assoc-ref-multiple alist key) - (filter-map - (match-lambda - ((k . value) - (and (string=? k key) - value))) - alist)) - (define (render-derivation conn derivation-file-name) (let ((derivation (select-derivation-by-file-name conn derivation-file-name))) |