server: Remove unnecessary indirection.
authorRicardo Wurmus <rekado@elephly.net>
Sat, 29 Feb 2020 07:32:28 +0000 (08:32 +0100)
committerRicardo Wurmus <rekado@elephly.net>
Sat, 29 Feb 2020 07:32:28 +0000 (08:32 +0100)
* mumi/web/server.scm (run-controller): Remove.
(handler): Call controller directly.
(start-mumi-web-server): Remove lambda around handler.

mumi/web/server.scm

index 205763a..fa83811 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