01/02: hydra/goggles: Match HTTP method symbols.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository maintenance.

commit a331d33557ae5727c01801decfa2616796ca520e
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Thu Apr 23 17:13:38 2020 +0200

    hydra/goggles: Match HTTP method symbols.
    
    * hydra/goggles.scm (%controller): Match symbols, not just any value.
---
 hydra/goggles.scm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/hydra/goggles.scm b/hydra/goggles.scm
old mode 100644
new mode 100755
index 884c8df..f00c368
--- a/hydra/goggles.scm
+++ b/hydra/goggles.scm
@@ -188,21 +188,21 @@ freenode." channel))
 
 (define %controller
   (match-lambda
-    ((GET)
+    (('GET)
      (render-html (index "guix")))
-    ((GET "guix")
+    (('GET "guix")
      (render-html (index "guix")))
-    ((GET "guile")
+    (('GET "guile")
      (render-html (index "guile")))
-    ((GET "bootstrappable")
+    (('GET "bootstrappable")
      (render-html (index "bootstrappable")))
-    ((GET "guix" path ...)
+    (('GET "guix" path ...)
      (render-log (string-append %log-root "/#guix/") path))
-    ((GET "guile" path ...)
+    (('GET "guile" path ...)
      (render-log (string-append %log-root "/#guile/") path))
-    ((GET "bootstrappable" path ...)
+    (('GET "bootstrappable" path ...)
      (render-log (string-append %log-root "/#bootstrappable/") path))
-    ((GET path ...)
+    (('GET path ...)
      (render-log (string-append %log-root "/#guix/") path))))
 
 (define (request-path-components request)