update

11 years ago · ddb8da0181
parent 1135abad7e
commit ddb8da0181
1 changed files with 4 additions and 3 deletions
--- a/server.rkt
+++ b/server.rkt
@ -9,9 +9,10 @@

 (define (logger req)
  (define client (request-client-ip req))
-  (when (equal? client "::1")
-    (set! client "localhost"))
-  (message "Request:" (url->string (request-uri req)) "from" client))
+  (message "Request:" (url->string (request-uri req)) 
+           "from" (if (equal? client "::1")
+                      "localhost" 
+                      client)))

 (define/contract (route-wrapper route-proc)
  (procedure? . -> . procedure?)