mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2025-08-07 23:07:00 +02:00
Code Issues Projects Releases Wiki Activity

Fix date-with-no-separator transform.

Browse Source 
The expected string length was hard-coded, which is not a good idea given
the support for custom date formats.
This commit is contained in:
Dimitri Fontaine 2018-03-07 23:07:00 +01:00
parent 42c9ccfbb3
commit 3112adea6f
1 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/utils/transforms.lisp
View File

@ -102,9 +102,11 @@
"Apply this function when input date in like '20041002152952'"
;; only process non-zero dates
(declare (type (or null string) date-string))
(let ((str-length (length date-string))
(expected-length (reduce #'max (mapcar #'third format))))
(cond ((null date-string) nil)
((string= date-string "") nil)
((not (= 14 (length date-string))) nil)
((not (= expected-length str-length)) nil)
(t
(destructuring-bind (&key year month day hour minute seconds
&allow-other-keys)
@ -116,7 +118,7 @@
(string= day "00"))
nil
(format nil "~a-~a-~a ~a:~a:~a"
year month day hour minute seconds))))))
year month day hour minute seconds)))))))
(defun time-with-no-separator
(time-string