aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service/web
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-06-20 14:34:00 +0200
committerChristopher Baines <mail@cbaines.net>2019-06-20 14:34:00 +0200
commit6e1a6c9808a402ab314726f071b0eb2454fa81fe (patch)
tree222596ba324c223b98fbce8aabdfd1aa2307eb85 /guix-data-service/web
parentd07e3d9ba88aee9a90f78e5ee945f51fbb9dcb9f (diff)
downloaddata-service-6e1a6c9808a402ab314726f071b0eb2454fa81fe.tar
data-service-6e1a6c9808a402ab314726f071b0eb2454fa81fe.tar.gz
Remove the compare form from the index page
It isn't very useful, as you have to know the commits. Now that there's Git branch information, it should be possible to access this in a more useful way.
Diffstat (limited to 'guix-data-service/web')
-rw-r--r--guix-data-service/web/view/html.scm39
1 files changed, 0 insertions, 39 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm
index 6b95ee9..4f8eed2 100644
--- a/guix-data-service/web/view/html.scm
+++ b/guix-data-service/web/view/html.scm
@@ -228,45 +228,6 @@
(div
(@ (class "col-sm-12"))
(h1 "Guix Data Service")))
- (div
- (@ (class "row"))
- (div
- (@ (class "col-sm-12"))
- (form
- (@ (id "compare")
- (action "/compare"))
- (div
- (@ (class "col-md-6"))
- (div
- (@ (class "form-group form-group-lg"))
- (label (@ (class "control-label")
- (style "font-size: 18px;")
- (for "base_commit"))
- "Base commit")
- (input (@ (type "text")
- (class "form-control")
- (style "font-family: monospace;")
- (id "base_commit")
- (name "base_commit")
- (placeholder "base commit"))))
- (div
- (@ (class "form-group form-group-lg"))
- (label (@ (class "control-label")
- (style "font-size: 18px;")
- (for "target_commit"))
- "Target commit")
- (input (@ (type "text")
- (class "form-control")
- (style "font-family: monospace;")
- (id "target_commit")
- (name "target_commit")
- (placeholder "target commit")))))
- (div
- (@ (class "col-md-6"))
- (button
- (@ (type "submit")
- (class "btn btn-lg btn-primary"))
- "Compare")))))
,@(map
(match-lambda
(((id label url) . revisions)