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

Allow filtering by system and target on the derivation-outputs page

Browse source 
So that this can match up with the package reproducibility page.
This commit is contained in:
Christopher Baines 2019-12-16 20:29:28 +00:00
parent e1d1d372ca
commit 4af643136e
3 changed files with 43 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

27
guix-data-service/model/derivation.scm
View file

@ -273,6 +273,8 @@ ORDER BY derivations.file_name
commit-hash
#:key
reproducibility-status
system
target
limit-results
after-path)
(define query
@ -315,9 +317,22 @@ INNER JOIN packages
ON package_derivations.package_id = packages.id
WHERE guix_revisions.commit = $1
"
(if after-path
" AND derivation_output_details.path > $2"
"")
(let ((criteria
`(,@(if after-path
'(" AND derivation_output_details.path > ")
'())
,@(if system
'(" AND package_derivations.system = ")
'())
,@(if target
'(" AND package_derivations.target = ")
'()))))
(string-concatenate
(map (lambda (query count)
(simple-format #f "~A$~A"
query count))
criteria
(iota (length criteria) 2))))
(cond
((string=? reproducibility-status "any")
"")
@ -377,6 +392,12 @@ ORDER BY derivation_output_details.path
`(,commit-hash
,@(if after-path
(list after-path)
'())
,@(if system
(list system)
'())
,@(if target
(list target)
'())))))
(define (insert-derivation-outputs conn