From 7c611402a0f7444322fc4e4c48fecd4b6dbd5efa Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 14 Nov 2019 21:32:47 +0000
Subject: Add a basic page for derivation source files

Just so that the links work.
---
 guix-data-service/web/view/html.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'guix-data-service/web/view')

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
-- 
cgit v1.2.3