retry connecting restart shows connection specification
Mon Nov 2 00:18:28 PST 2009 attila.lendvai@gmail.com
* retry connecting restart shows connection specification
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-cl-rdbms/postgresql/postmodern-backend.lisp new-cl-rdbms/postgresql/postmodern-backend.lisp
--- old-cl-rdbms/postgresql/postmodern-backend.lisp 2014-07-31 14:45:25.000000000 -0700
+++ new-cl-rdbms/postgresql/postmodern-backend.lisp 2014-07-31 14:45:25.000000000 -0700
@@ -124,7 +124,7 @@
(log.debug "Opening Postmodern connection the first time it was needed, using ~S" (remove-from-plist (connection-specification-of db) :password))
(aprog1
(loop
- (with-simple-restart (retry "Retry connecting")
+ (with-simple-restart (retry "Retry connecting using ~S" (connection-specification-of db))
(return
(setf (connection-of tr)
(apply #'cl-postgres:open-database