25 lines
742 B
Racket
25 lines
742 B
Racket
#lang racket/base
|
|
(require racket/contract/base
|
|
openssl
|
|
"base.rkt"
|
|
"private/mysql/main.rkt")
|
|
|
|
;; FIXME: Contracts duplicated at main.rkt
|
|
(provide/contract
|
|
[mysql-connect
|
|
(->* (#:user string?)
|
|
(#:database (or/c string? #f)
|
|
#:password (or/c string? (list/c 'hash string?) #f)
|
|
#:server (or/c string? #f)
|
|
#:port (or/c exact-positive-integer? #f)
|
|
#:socket (or/c path-string? 'guess #f)
|
|
#:ssl (or/c 'yes 'no 'optional)
|
|
#:ssl-context ssl-client-context?
|
|
#:notice-handler (or/c 'output 'error output-port? procedure?)
|
|
#:debug? any/c)
|
|
connection?)]
|
|
[mysql-guess-socket-path
|
|
(-> path-string?)]
|
|
[mysql-password-hash
|
|
(-> string? string?)])
|