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

db/postgresql: disconnect on EOF at ready-for-query

Browse Source
This commit is contained in:
Ryan Culpepper 2014-06-12 18:27:44 -04:00
parent f526d1b1c9
commit f03a62a6c2
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/db-pkgs/db-lib/db/private/postgresql/connection.rkt
View File

@ -103,6 +103,8 @@
(define/private (recv-message fsym)
(let ([r (raw-recv)])
(cond [(ErrorResponse? r)
;; No need to check for FATAL errors here and disconnect, because
;; followed by EOF, handled by check-ready-for-query.
(check-ready-for-query fsym #t)
(raise-backend-error fsym r)]
[(or (NoticeResponse? r)
@ -128,7 +130,8 @@
((idle) #f)
((transaction) #t)
((failed) 'invalid)))]
[(and or-eof? (eof-object? r)) (void)]
[(and or-eof? (eof-object? r))
(disconnect* #f)]
[else (error/comm fsym "expecting ready-for-query")])))
;; == Asynchronous messages