diff options
| author | Danjela Lura <danielaluraa@gmail.com> | 2020-08-26 13:47:48 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-08-26 21:20:00 +0100 |
| commit | d5c101dee79f4f9ddff68dada0d012afb8f42aa6 (patch) | |
| tree | f3ce420da543329496e858a01f2bf0157eef2851 /guix-data-service/web | |
| parent | ab68b0fdb3efe68f1962b7b9698ffc225abfeabb (diff) | |
| download | data-service-d5c101dee79f4f9ddff68dada0d012afb8f42aa6.tar data-service-d5c101dee79f4f9ddff68dada0d012afb8f42aa6.tar.gz | |
Add JSON representation for the derivation page
Signed-off-by: Christopher Baines <mail@cbaines.net>
Diffstat (limited to 'guix-data-service/web')
| -rw-r--r-- | guix-data-service/web/controller.scm | 53 | ||||
| -rw-r--r-- | guix-data-service/web/view/html.scm | 6 |
2 files changed, 58 insertions, 1 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index ce5bb87..3c47125 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -106,6 +106,54 @@ "No derivation found with this file name.") #:code 404)))) +(define (render-json-derivation conn derivation-file-name) + (let ((derivation (select-derivation-by-file-name conn + derivation-file-name))) + (if derivation + (let ((derivation-inputs (select-derivation-inputs-by-derivation-id + conn + (first derivation))) + (derivation-outputs (select-derivation-outputs-by-derivation-id + conn + (first derivation))) + (derivation-sources (select-derivation-sources-by-derivation-id + conn + (first derivation)))) + (render-json + `((inputs . ,(list->vector + (map + (match-lambda + ((filename outputs) + `((filename . ,filename) + (out_name + . ,(list->vector + (map + (lambda (output) + (assoc-ref output "output_name")) + (vector->list outputs))))))) + derivation-inputs))) + (outputs . ,(list->vector + (map + (match-lambda + ((output-name path hash-algorithm hash recursive?) + `((output-name . ,output-name) + (path . ,path) + (hash-algorithm . ,hash-algorithm) + (recursive? . ,recursive?)))) + derivation-outputs))) + (sources . ,(list->vector derivation-sources)) + ,@(match derivation + ((_ _ builder args env-var system) + `((system . ,system) + (builder . ,builder) + (arguments . ,(list->vector args)) + (environment-variables + . ,(map (lambda (var) + (cons (assq-ref var 'key) + (assq-ref var 'value))) + env-var)))))))) + (render-json '((error . "invalid path")))))) + (define (render-formatted-derivation conn derivation-file-name) (let ((derivation (select-derivation-by-file-name conn derivation-file-name))) @@ -336,6 +384,11 @@ (not-found (request-uri request)))) (('GET "gnu" "store" filename "narinfos") (render-narinfos conn filename)) + (('GET "gnu" "store" filename "json") + (if (string-suffix? ".drv" filename) + (render-json-derivation conn + (string-append "/gnu/store/" filename)) + '())) (('GET "build-servers") (delegate-to-with-secret-key-base build-server-controller)) (('GET "dumps" _ ...) diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 2b1e4fb..405babe 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -602,7 +602,11 @@ time." (a (@ (class "btn btn-lg btn-default") (href ,(string-append file-name "/plain")) (role "button")) - "Plain view")))))) + "Plain view") + (a (@ (class "btn btn-lg btn-default") + (href ,(string-append file-name "/json")) + (role "button")) + "View JSON")))))) (div (@ (class "row")) (div |