diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-11-10 09:41:32 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-11-10 09:41:32 +0000 |
| commit | ab51599057464aec3f08c078405dd48148c9a880 (patch) | |
| tree | 2325d1c3eb743ea88fb6e6442e956067fab7983e /guix-data-service/web/view | |
| parent | 34318fbb507959479627846e3e87ac814aa53d14 (diff) | |
| download | data-service-ab51599057464aec3f08c078405dd48148c9a880.tar data-service-ab51599057464aec3f08c078405dd48148c9a880.tar.gz | |
Include the hash algorithm and hash on the formatted derivation page
Diffstat (limited to 'guix-data-service/web/view')
| -rw-r--r-- | guix-data-service/web/view/html.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index ea5641a..5f14722 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -628,7 +628,13 @@ ,(simple-format #f "(\"~A\",\"" output-name) (a (@ (href ,path)) ,(display-store-item path)) - "\")" + "\"," + ,(string-append (if (peek recursive?) "\"r:" "\"") + hash-algorithm) + "\"" + "," + "\"" ,hash "\"" + ")" ,@(if (eq? count-down 0) '() '(","))))) |