diff --git a/collects/db/private/generic/interfaces.rkt b/collects/db/private/generic/interfaces.rkt index 0fb17ebc46..8dd09def6c 100644 --- a/collects/db/private/generic/interfaces.rkt +++ b/collects/db/private/generic/interfaces.rkt @@ -14,7 +14,6 @@ define-type-table no-cache-prepare<%> - connector<%> locking% transactions% @@ -176,16 +175,6 @@ (list ok? t x))))) -;; == Internal staging interfaces - -;; connector<%> -;; Manages making connections -(define connector<%> - (interface () - attach-to-ports ;; input-port output-port -> void - start-connection-protocol ;; string string string/#f -> void - )) - ;; == Notice/notification handler maker ;; make-handler : output-port/symbol string -> string string -> void diff --git a/collects/db/private/postgresql/connection.rkt b/collects/db/private/postgresql/connection.rkt index 9f036fff11..ded03dffc6 100644 --- a/collects/db/private/postgresql/connection.rkt +++ b/collects/db/private/postgresql/connection.rkt @@ -14,6 +14,13 @@ ;; ======================================== +;; connector<%> +;; Manages making connections +(define connector<%> + (interface () + attach-to-ports ;; input-port output-port -> void + start-connection-protocol)) ;; string string string/#f -> void + (define connection-base% (class* transactions% (connection<%> connector<%>) (init-private notice-handler