From 830ca4960ecad0d44807c7cabdcfe2e506025e82 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 30 Oct 2018 13:59:29 -0700 Subject: [PATCH] neater --- pollen/private/project-server-routes.rkt | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/pollen/private/project-server-routes.rkt b/pollen/private/project-server-routes.rkt index ea9b4d2..271181c 100644 --- a/pollen/private/project-server-routes.rkt +++ b/pollen/private/project-server-routes.rkt @@ -58,14 +58,15 @@ ;; print message to console about a request (define/contract (logger req) (request? . -> . void?) - (define client (request-client-ip req)) (define localhost-client "::1") (define url-string (url->string (request-uri req))) (unless (ends-with? url-string "favicon.ico") - (message (if (regexp-match #rx"/$" url-string) - (string-append url-string " directory default page") - (string-replace url-string (setup:main-pagetree) " dashboard")) - (if (not (equal? client localhost-client)) (format "from ~a" client) ""))) + (message (match url-string + [(regexp #rx"/$") (string-append url-string " directory default page")] + [_ (string-replace url-string (setup:main-pagetree) " dashboard")]) + (match (request-client-ip req) + [(== localhost-client) ""] + [client (format "from ~a" client)])))) ;; pass string args to route, then ;; package route into right format for web server