From 3a6120b931fc7efd8d6356ca98c866e8817e8fbf Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Thu, 20 Aug 2015 12:38:19 +0200 Subject: [PATCH] Improve logging again. The user experience is greatly enhanced by this little change, where you know from the logs that pgloader could actually connect rather than thinking it might be still trying... --- src/pgsql/queries.lisp | 2 +- src/sources/mysql/mysql-schema.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/pgsql/queries.lisp b/src/pgsql/queries.lisp index d2ede5d..6f3965f 100644 --- a/src/pgsql/queries.lisp +++ b/src/pgsql/queries.lisp @@ -80,7 +80,7 @@ `(let (#+unix (cl-postgres::*unix-socket-dir* (get-unix-socket-dir ,pgconn))) (with-connection (conn ,pgconn) (let ((pomo:*database* (conn-handle conn))) - (log-message :debug "CONNECT ~s" conn) + (log-message :debug "CONNECTED TO ~s" conn) (set-session-gucs *pg-settings*) (handling-pgsql-notices ,@forms))))) diff --git a/src/sources/mysql/mysql-schema.lisp b/src/sources/mysql/mysql-schema.lisp index d2b4d6e..6a968ca 100644 --- a/src/sources/mysql/mysql-schema.lisp +++ b/src/sources/mysql/mysql-schema.lisp @@ -64,7 +64,7 @@ :username (db-user myconn) :password (db-pass myconn) :database (db-name myconn)))) - (log-message :debug "CONNECT ~a" myconn) + (log-message :debug "CONNECTED TO ~a" myconn) ;; return the connection object myconn)