diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-11-14 21:32:47 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-11-14 21:32:47 +0000 |
| commit | 8f6422463acada1417684f944c10c81b53c17ca7 (patch) | |
| tree | 28548954af35304f77ab88cda4cabd2925b5f536 /guix-data-service/web/view/html.scm | |
| parent | a2bbc0ee0d0c388e95d971d47e4cbf6b42e7dbfc (diff) | |
| download | data-service-8f6422463acada1417684f944c10c81b53c17ca7.tar data-service-8f6422463acada1417684f944c10c81b53c17ca7.tar.gz | |
Add a basic page for derivation source files
Just so that the links work.
Diffstat (limited to 'guix-data-service/web/view/html.scm')
| -rw-r--r-- | guix-data-service/web/view/html.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index e6de895..1792440 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -47,6 +47,7 @@ view-derivation view-formatted-derivation view-store-item + view-derivation-source-file error-page)) (define* (header) @@ -516,6 +517,19 @@ derivations derivations-using-store-item-list))))) +(define (view-derivation-source-file filename) + (layout + #:body + `(,(header) + (div + (@ (class "container")) + (div + (@ (class "row")) + (div + (@ (class "col-sm-12")) + ,(display-store-item-title filename) + "Derivation source file.")))))) + (define (view-derivation derivation derivation-inputs derivation-outputs builds) (layout |