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

Allow date formats to miss time parts.

Browse Source 
In case the seconds field are not provided just use "00" rather than NIL
as currently...
This commit is contained in:
Dimitri Fontaine 2015-11-14 21:14:20 +01:00
parent 6cbec206af
commit da05782002
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/parsers/date-format.lisp
View File

@ -62,13 +62,15 @@
;; now format the time part
(format s "~a:~a:~a"
(let ((hint (parse-integer hour)))
(cond ((and am (= hint 12)) "00")
((and pm (= hint 12)) "12")
((and pm (< hint 12)) (+ hint 12))
(t hour)))
minute
seconds)
(if hour
(let ((hint (parse-integer hour)))
(cond ((and am (= hint 12)) "00")
((and pm (= hint 12)) "12")
((and pm (< hint 12)) (+ hint 12))
(t hour)))
"00")
(or minute "00")
(or seconds "00"))
;; and maybe format the micro seconds part
(if usecs (format s ".~a" usecs)