01/04: hydra/goggles: Pass request to controller.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository maintenance.

commit 7d0119b0266aa02294937df1d65bb84f17fb4ee0
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Fri Apr 24 13:56:10 2020 +0200

    hydra/goggles: Pass request to controller.
    
    * hydra/goggles.scm (%controller): Accept request argument.
    (handler): Pass request to controller.
---
 hydra/goggles.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hydra/goggles.scm b/hydra/goggles.scm
index 463596e..3b4f64d 100755
--- a/hydra/goggles.scm
+++ b/hydra/goggles.scm
@@ -190,7 +190,7 @@ freenode." channel))
              (or (channel-files channel)
                  '()))))))
 
-(define %controller
+(define (%controller request)
   (match-lambda
     (('GET)
      (render-html (index "guix")))
@@ -205,7 +205,7 @@ freenode." channel))
   (split-and-decode-uri-path (uri-path (request-uri request))))
 
 (define (handler request . _)
-  (apply values (%controller
+  (apply values ((%controller request)
                  (cons (request-method request)
                        (request-path-components request)))))