server: Remove unnecessary indirection.
[software/mumi.git] / mumi / web / server.scm
index 205763a005888d456c434c2a33c58b3dee40aaf7..fa83811cf8e805668cb8203cecd70027a670591e 100644 (file)
@@ -1,5 +1,5 @@
 ;;; mumi -- Mediocre, uh, mail interface
-;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2017, 2020 Ricardo Wurmus <rekado@elephly.net>
 ;;;
 ;;; This program is free software: you can redistribute it and/or
 ;;; modify it under the terms of the GNU Affero General Public License
   #:use-module (mumi web util)
   #:export (start-mumi-web-server))
 
-(define (run-controller controller request body)
-  ((controller request body)
-   (cons (request-method request)
-         (request-path-components request))))
-
-(define (handler request body controller)
+(define (handler request body)
   (format #t "~a ~a\n"
           (request-method request)
           (uri-path (request-uri request)))
   (apply values
-         (run-controller controller request body)))
+         ((controller request body)
+          (cons (request-method request)
+                (request-path-components request)))))
 
 (define (start-mumi-web-server port)
-  (run-server (lambda (request body)
-                (handler request body controller))
+  (run-server handler
               'http
               (list
                #:addr INADDR_ANY