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

Remove the "derivations using output" data

Browse source 
From the HTML and JSON responses, since this data isn't very useful, and the
query to collect the small amount which is displayed is very slow. This could
return at some point, but in a proper paginated form which isn't slow.
This commit is contained in:
Christopher Baines 2021-05-17 18:35:19 +01:00
parent da0ee9dff0
commit b8bfdcf622
2 changed files with 6 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -424,16 +424,7 @@
filename))))) filename)))))
#:extra-headers http-headers-for-unchanging-content)))) #:extra-headers http-headers-for-unchanging-content))))
(derivations (derivations
(letpar& ((derivations-using-store-item-list (letpar& ((nars
(with-thread-postgresql-connection
(lambda (conn)
(map (lambda (derivation)
(match derivation
((file-name output-id rest ...)
(select-derivations-using-output
conn output-id))))
derivations))))
(nars
(with-thread-postgresql-connection (with-thread-postgresql-connection
(lambda (conn) (lambda (conn)
(select-nars-for-output conn filename)))) (select-nars-for-output conn filename))))
@ -446,7 +437,6 @@
(render-html (render-html
#:sxml (view-store-item filename #:sxml (view-store-item filename
derivations derivations
derivations-using-store-item-list
nars nars
builds))))))) builds)))))))
@ -510,16 +500,8 @@
(map (map
(match-lambda (match-lambda
((filename output-id) ((filename output-id)
`((filename . ,filename) `((filename . ,filename))))
(derivations-using-store-item derivations))))))))))
. ,(list->vector
(map car
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection
(lambda (conn)
(select-derivations-using-output
conn output-id))))))))))
derivations))))))))))
(define handle-static-assets (define handle-static-assets
(if assets-dir-in-store? (if assets-dir-in-store?

25
guix-data-service/web/view/html.scm
View file

@ -450,7 +450,6 @@
(define (view-store-item filename (define (view-store-item filename
derivations derivations
derivations-using-store-item-list
nars nars
builds) builds)
(layout (layout
@ -530,7 +529,7 @@
derivation-file-name))) derivation-file-name)))
,(build-status-span status)))) ,(build-status-span status))))
builds))) builds)))
,@(map (lambda (derivation derivations-using-store-item) ,@(map (lambda (derivation)
`((div `((div
(@ (class "row")) (@ (class "row"))
(div (div
@ -539,26 +538,8 @@
,(match derivation ,(match derivation
((file-name output-id) ((file-name output-id)
`(a (@ (href ,file-name)) `(a (@ (href ,file-name))
,(display-store-item file-name)))))) ,(display-store-item file-name))))))))
(div derivations)))))
(@ (class "row"))
(div
(@ (class "col-sm-12"))
(h2 "Derivations using this store item "
,(let ((count (length derivations-using-store-item)))
(if (eq? count 100)
"(> 100)"
(simple-format #f "(~A)" count))))
(ul
(@ (class "list-unstyled"))
,(map
(match-lambda
((file-name)
`(li (a (@ (href ,file-name))
,(display-store-item file-name)))))
derivations-using-store-item))))))
derivations
derivations-using-store-item-list)))))
(define (view-derivation-source-file filename details) (define (view-derivation-source-file filename details)
(define labels (define labels