From d92b02b0c29414e6b8ddf5242451024d8a8fedc8 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 17 Feb 2009 11:30:06 -0600
Subject: [PATCH] use the new with-logging
---
basis/io/servers/connection/connection.factor | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/basis/io/servers/connection/connection.factor b/basis/io/servers/connection/connection.factor
index bc90915213..91fb3bfb37 100644
--- a/basis/io/servers/connection/connection.factor
+++ b/basis/io/servers/connection/connection.factor
@@ -12,6 +12,7 @@ IN: io.servers.connection
TUPLE: threaded-server
name
+log-level
secure insecure
secure-config
sockets
@@ -29,6 +30,7 @@ ready ;
: new-threaded-server ( class -- threaded-server )
new
"server" >>name
+ DEBUG >>log-level
ascii >>encoding
1 minutes >>timeout
V{ } clone >>sockets
@@ -115,7 +117,7 @@ M: threaded-server handle-client* handler>> call ;
: (start-server) ( threaded-server -- )
init-server
dup threaded-server [
- dup name>> [
+ [ ] [ name>> ] [ log-level>> ] tri [
[ listen-on [ start-accept-loop ] parallel-each ]
[ ready>> raise-flag ]
bi