db: minimize dependencies

collects/db/base.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require racket/contract
+(require racket/contract/base
          unstable/prop-contract)
 
 ;; ============================================================

collects/db/main.rkt

@@ -1,7 +1,7 @@
 #lang racket/base
 (require (for-syntax racket/base)
          unstable/lazy-require
-         racket/contract
+         racket/contract/base
          "base.rkt")
 (provide (all-from-out "base.rkt"))
 

collects/db/mysql.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require racket/contract
+(require racket/contract/base
          openssl
          "base.rkt"
          "private/mysql/main.rkt")

collects/db/odbc.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require racket/contract
+(require racket/contract/base
          "base.rkt"
          "private/odbc/main.rkt")
 

collects/db/postgresql.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require racket/contract
+(require racket/contract/base
          openssl
          "base.rkt"
          "private/postgresql/main.rkt")

collects/db/private/generic/dsn.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 (require unstable/lazy-require
-         racket/match
+         syntax/parse/private/minimatch
          racket/file
          racket/list)
 (provide dsn-connect

collects/db/private/generic/place-client.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 (require racket/class
-         racket/match
+         syntax/parse/private/minimatch
          racket/place
          racket/promise
          racket/serialize

collects/db/private/generic/place-server.rkt

@@ -1,7 +1,7 @@
 #lang racket/base
 (require (for-syntax racket/base)
          racket/class
-         racket/match
+         syntax/parse/private/minimatch
          racket/place
          racket/serialize
          unstable/lazy-require

collects/db/private/generic/socket.rkt

@@ -1,17 +1,15 @@
 #lang racket/base
 (require ffi/unsafe
-         ffi/file
-         (rename-in racket/contract [-> c->]))
-(provide/contract
- [unix-socket-connect
-  (c-> path-string?
-       (values input-port? output-port?))])
+         ffi/file)
+(provide unix-socket-connect)
 
 ;; The solaris code is untested (and thus disabled).
 
 ;; unix-socket-connect : pathlike -> input-port output-port
 ;; Connects to the unix domain socket associated with the given path.
 (define (unix-socket-connect path0)
+  (unless (path-string? path0)
+    (raise-type-error 'unix-socket-connect "path or string" path0))
   (security-guard-check-file 'unix-socket-connect path0 '(read write))
   (let* ([path* (cleanse-path (path->complete-path path0))]
          [path-b (path->bytes path*)])

collects/db/sqlite3.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require racket/contract
+(require racket/contract/base
          "base.rkt"
          "private/sqlite3/main.rkt")