summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-10-15 21:53:47 +0200
committerLudovic Courtès <ludo@gnu.org>2018-11-07 15:28:05 +0100
commitf9c1066916fa3f62d04347677b2239009a3cae4e (patch)
tree5a2901928fa8149de50d267f153e7d4f6bcb42f1
parent6b7f456f9c7065cf6c02a3dcc4eb7a4fb2fb8a2d (diff)
downloadcuirass-f9c1066916fa3f62d04347677b2239009a3cae4e.tar
cuirass-f9c1066916fa3f62d04347677b2239009a3cae4e.tar.gz
http: No longer log incoming connections.
* src/web/server/fiberized.scm (socket-loop): Remove "HTTP connection" message logging.
-rw-r--r--src/web/server/fiberized.scm3
1 files changed, 0 insertions, 3 deletions
diff --git a/src/web/server/fiberized.scm b/src/web/server/fiberized.scm
index 25a410a..308b642 100644
--- a/src/web/server/fiberized.scm
+++ b/src/web/server/fiberized.scm
@@ -143,9 +143,6 @@
(let loop ()
(match (accept socket (logior SOCK_NONBLOCK SOCK_CLOEXEC))
((client . sockaddr)
- (log-message "HTTP connection from ~a"
- (inet-ntop (sockaddr:fam sockaddr)
- (sockaddr:addr sockaddr)))
(spawn-fiber (lambda () (client-loop client have-request))
#:parallel? #t)
(loop)))))