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

Continue improving pages and linking things together

Browse source
This commit is contained in:
Christopher Baines 2019-03-07 23:50:51 +00:00
parent 0380c84a67
commit a1e481cc4d
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577
4 changed files with 160 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -210,17 +210,31 @@
(first derivation)))
(derivation-outputs (select-derivation-outputs-by-derivation-id
conn
(first derivation))))
(first derivation)))
(builds (select-builds-with-context-by-derivation-id
conn
(first derivation))))
(apply render-html
(view-derivation derivation
derivation-inputs
derivation-outputs)))
derivation-outputs
builds)))
#f ;; TODO
)))
(define (render-store-item conn filename)
(apply render-html
(view-store-item filename)))
(let ((derivation (select-derivation-by-output-filename conn filename)))
(match derivation
(()
#f)
((derivation)
(apply render-html
(view-store-item filename
derivation
(match derivation
((file-name output-id rest ...)
(select-derivations-using-output
conn output-id)))))))))
(define (controller request body conn)
(match-lambda
@ -237,6 +251,11 @@
(view-revision commit-hash
(select-packages-in-revision conn
commit-hash))))
((GET "revision" commit-hash "package" name version)
(apply render-html
(view-revision-package-and-version commit-hash
name
version)))
((GET "gnu" "store" filename)
(if (string-suffix? ".drv" filename)
(render-derivation conn (string-append "/gnu/store/" filename))