From 57cbac891e6771677b0f5ca906c32e5c5dff701d Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 10 Jan 2020 17:28:12 +0000 Subject: [PATCH] Delete unused assoc-ref-multiple function --- guix-data-service/web/controller.scm | 8 -------- 1 file changed, 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)))