suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix sqlite3 w/ place

Browse Source
This commit is contained in:
Ryan Culpepper 2013-09-16 12:33:07 -04:00
parent bb5323e448
commit 177beae5c1
3 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/db-pkgs/db-lib/db/main.rkt
View File

@ -13,7 +13,7 @@
(mysql-connect
mysql-guess-socket-path
mysql-password-hash)]
[db/private/sqlite3/main
["private/sqlite3/place.rkt"
(sqlite3-connect
sqlite3-available?)]
["private/odbc/main.rkt"

3
pkgs/db-pkgs/db-lib/db/private/generic/place-server.rkt
View File

@ -45,8 +45,7 @@ where <connect-spec> ::= (list 'sqlite3 path/sym mode-sym delay-num limit-num)
(sqlite3-connect #:database db
#:mode mode
#:busy-retry-delay busy-retry-delay
#:busy-retry-limit busy-retry-limit
#:use-place #f)]
#:busy-retry-limit busy-retry-limit)]
[(list 'odbc dsn user password strict-param? char-mode)
(odbc-connect #:dsn dsn
#:user user

2
pkgs/db-pkgs/db-lib/db/sqlite3.rkt
View File

@ -10,7 +10,7 @@
(#: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
#:use-place boolean?
#:debug? any/c)
connection?)]
[sqlite3-available?