From 150a9c1f3dac6cd63889d5248b57427172db1740 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Wed, 6 Jun 2007 00:31:27 +0000
Subject: [PATCH] Simplify connection-manager

svn: r6493
---
 collects/web-server/dispatchers/dispatch.ss       |  2 +-
 collects/web-server/private/connection-manager.ss | 15 ++++++++++-----
 collects/web-server/private/connection-structs.ss | 12 ------------
 collects/web-server/private/servlet.ss            |  2 +-
 collects/web-server/tests/private/request-test.ss |  2 +-
 5 files changed, 13 insertions(+), 20 deletions(-)
 delete mode 100644 collects/web-server/private/connection-structs.ss

diff --git a/collects/web-server/dispatchers/dispatch.ss b/collects/web-server/dispatchers/dispatch.ss
index 69fba4526a..e9bba73dc5 100644
--- a/collects/web-server/dispatchers/dispatch.ss
+++ b/collects/web-server/dispatchers/dispatch.ss
@@ -1,6 +1,6 @@
 (module dispatch mzscheme
   (require (lib "contract.ss"))
-  (require "../private/connection-structs.ss"
+  (require "../private/connection-manager.ss"
            "../private/request-structs.ss")
   
   (define dispatcher? 
diff --git a/collects/web-server/private/connection-manager.ss b/collects/web-server/private/connection-manager.ss
index d31c980bf0..ffca79750c 100644
--- a/collects/web-server/private/connection-manager.ss
+++ b/collects/web-server/private/connection-manager.ss
@@ -1,10 +1,15 @@
 (module connection-manager mzscheme
-  (require "connection-structs.ss"
-           "timer.ss"
-           (lib "contract.ss"))
-  (provide (all-from "connection-structs.ss"))
-
+  (require (lib "contract.ss")
+           "timer.ss")
+  
+  (define-struct connection (timer i-port o-port custodian close? mutex)
+    (make-inspector))
+  
   (provide/contract
+   [struct connection
+           ([timer timer?]
+            [i-port input-port?] [o-port output-port?] [custodian custodian?]
+            [close? boolean?] [mutex semaphore?])]
    [start-connection-manager (custodian? . -> . void)]
    [new-connection (number? input-port? output-port? custodian? boolean? . -> . connection?)]
    [kill-connection! (connection? . -> . void)]
diff --git a/collects/web-server/private/connection-structs.ss b/collects/web-server/private/connection-structs.ss
deleted file mode 100644
index cfde8ae00c..0000000000
--- a/collects/web-server/private/connection-structs.ss
+++ /dev/null
@@ -1,12 +0,0 @@
-(module connection-structs mzscheme
-  (require (lib "contract.ss"))
-  (require "timer.ss")
-  
-  (define-struct connection (timer i-port o-port custodian close? mutex)
-    (make-inspector))
-  
-  (provide/contract
-   [struct connection
-           ([timer timer?]
-            [i-port input-port?] [o-port output-port?] [custodian custodian?]
-            [close? boolean?] [mutex semaphore?])]))
\ No newline at end of file
diff --git a/collects/web-server/private/servlet.ss b/collects/web-server/private/servlet.ss
index c3d6d1aba9..c7b823c485 100644
--- a/collects/web-server/private/servlet.ss
+++ b/collects/web-server/private/servlet.ss
@@ -2,7 +2,7 @@
   (require (lib "contract.ss"))
   (require "../managers/manager.ss"
            "../servlet/servlet-structs.ss"
-           "connection-structs.ss"
+           "connection-manager.ss"
            "../private/request-structs.ss")
   
   (define-struct (exn:fail:servlet:instance exn:fail) ())
diff --git a/collects/web-server/tests/private/request-test.ss b/collects/web-server/tests/private/request-test.ss
index 7325917bbc..2edc355fb9 100644
--- a/collects/web-server/tests/private/request-test.ss
+++ b/collects/web-server/tests/private/request-test.ss
@@ -1,7 +1,7 @@
 (module request-test mzscheme
   (require (planet "util.ss" ("schematics" "schemeunit.plt" 2))
            (planet "test.ss" ("schematics" "schemeunit.plt" 2))
-           (lib "connection-structs.ss" "web-server" "private")
+           (lib "connection-manager.ss" "web-server" "private")
            (lib "timer.ss" "web-server" "private")
            (lib "request-structs.ss" "web-server" "private"))