cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Delete unused assoc-ref-multiple function

Browse source
This commit is contained in:
Christopher Baines 2020-01-10 17:28:12 +00:00
parent c7e3a1bd0b
commit 57cbac891e
1 changed files with 0 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
guix-data-service/web/controller.scm
View file

@ -90,14 +90,6 @@
;; (render-html (error-page message)))) ;; (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) (define (render-derivation conn derivation-file-name)
(let ((derivation (select-derivation-by-file-name conn (let ((derivation (select-derivation-by-file-name conn
derivation-file-name))) derivation-file-name)))