mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2026-05-05 02:46:10 +02:00
Code Issues Projects Releases Wiki Activity

Clean-up the duration formating in the summary.

Browse Source
This commit is contained in:
Dimitri Fontaine 2013-11-05 18:58:54 +01:00
parent a7d5f719fa
commit 93deb033f0
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/utils.lisp
View File

@ -76,15 +76,16 @@
"Output the number of seconds in a human friendly way"
(multiple-value-bind (years months days hours mins secs millisecs)
(date:decode-interval (date:encode-interval :second seconds))
(declare (ignore millisecs))
(format
stream
"~:[~*~;~d years ~]~:[~*~;~d months ~]~:[~*~;~d days ~]~:[~*~;~dh~]~:[~*~;~dm~]~d.~ds"
"~:[~*~;~d years ~]~:[~*~;~d months ~]~:[~*~;~d days ~]~:[~*~;~dh~]~:[~*~;~dm~]~5,3fs"
(< 0 years) years
(< 0 months) months
(< 0 days) days
(< 0 hours) hours
(< 0 mins) mins
secs (truncate millisecs))))
(+ secs (- seconds secs)))))
;;;
;;; Data Structures to maintain information about loading state
@ -236,7 +237,8 @@
using (hash-value pgtable)
do
(with-slots (read rows errs secs) pgtable
(format t *header-cols-format* table-name read rows errs secs))
(format t *header-cols-format*
table-name read rows errs (format-interval secs nil)))
finally (when footer
(report-pgstate-stats pgstate footer))))