Add log entries for connection strings.

It helps a lot to debug what's happening, and it seems that we lost the
information when cleaning up the log levels in recent efforts to unclutter
the default output.

src/sources/common/db-methods.lisp

@@ -265,6 +265,8 @@
                             alter-schema
 			    materialize-views)
   "Export database source data and Import it into PostgreSQL"
+  (log-message :log "Migrating from ~a" (source-db copy))
+  (log-message :log "Migrating into ~a" (target-db copy))
   (let* ((*on-error-stop* on-error-stop)
          (copy-data      (or data-only (not schema-only)))
          (create-ddl     (or schema-only (not data-only)))

src/utils/connection.lisp

@@ -112,7 +112,12 @@
 (defmethod print-object ((c db-connection) stream)
   (print-unreadable-object (c stream :type t :identity t)
     (with-slots (type name host port user) c
-      (format stream "~a://~a@~a:~a/~a" type user host port name))))
+      (let ((host (typecase host
+                    (cons (format nil "~a:~a"
+                                  (string-downcase (car host))
+                                  (cdr host)))
+                    (t    host))))
+       (format stream "~a://~a@~a:~a/~a" type user host port name)))))
 
 (define-condition db-connection-error (connection-error)
   ((host :initarg :host :reader connection-error-host)