16 lines
500 B
Racket
16 lines
500 B
Racket
#lang racket/base
|
|
(require racket/contract/base
|
|
"base.rkt"
|
|
"private/sqlite3/main.rkt")
|
|
|
|
;; FIXME: Contracts duplicated at main.rkt
|
|
(provide/contract
|
|
[sqlite3-connect
|
|
(->* (#:database (or/c path-string? 'memory 'temporary))
|
|
(#:mode (or/c 'read-only 'read/write 'create)
|
|
#:busy-retry-limit (or/c exact-nonnegative-integer? +inf.0)
|
|
#:busy-retry-delay (and/c rational? (not/c negative?))
|
|
#:use-place any/c
|
|
#:debug? any/c)
|
|
connection?)])
|