Keep typemod, default and not null when lacking casting rules, fixes #91.

This commit is contained in:
Dimitri Fontaine 2014-06-25 12:39:51 +02:00
parent d1100efa28
commit a70a0ddd77

View File

@ -283,7 +283,11 @@
;; ;;
;; prefer char(24) over just char, that is the column type over the ;; prefer char(24) over just char, that is the column type over the
;; data type. ;; data type.
source-ctype))) (format nil "~a~:[~; not null~]~:[~; default ~a~]"
source-ctype
source-not-null
source-default
(format-pgsql-default-value source-default using)))))
(defun apply-casting-rules (dtype ctype default nullable extra (defun apply-casting-rules (dtype ctype default nullable extra
&key &key