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

Find field attributes case-insensitively, fix #80.

Browse Source 
That's a follow-up to the case management cleanup for fields and
columns, wherein the "null if" property would stop being applied
properly.
This commit is contained in:
Dimitri Fontaine 2014-06-17 21:53:53 +02:00
parent 88eba90776
commit 252abdeaa7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/sources/sources.lisp
View File

@ -234,7 +234,8 @@
(destructuring-bind (&key null-as date-format &allow-other-keys) (destructuring-bind (&key null-as date-format &allow-other-keys)
(typecase field-name-or-list (typecase field-name-or-list
(list (cdr field-name-or-list)) (list (cdr field-name-or-list))
(t (cdr (assoc field-name-or-list fields :test #'string=)))) (t (cdr (assoc field-name-or-list fields
:test #'string-equal))))
(declare (ignore date-format)) ; TODO (declare (ignore date-format)) ; TODO
(if (null null-as) (if (null null-as)
#'identity #'identity