diff options
-rw-r--r-- | mumi/web/server.scm | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/mumi/web/server.scm b/mumi/web/server.scm index 205763a..fa83811 100644 --- a/mumi/web/server.scm +++ b/mumi/web/server.scm @@ -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 @@ -25,21 +25,17 @@ #: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 |