From a70a0ddd77b96d0cd0b510b77b2d59d5e9c20fe0 Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Wed, 25 Jun 2014 12:39:51 +0200
Subject: [PATCH] Keep typemod, default and not null when lacking casting
 rules, fixes #91.

---
 src/sources/mysql-cast-rules.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/sources/mysql-cast-rules.lisp b/src/sources/mysql-cast-rules.lisp
index b2cb82a..c10bbc2 100644
--- a/src/sources/mysql-cast-rules.lisp
+++ b/src/sources/mysql-cast-rules.lisp
@@ -283,7 +283,11 @@
 	;;
 	;; prefer char(24) over just char, that is the column type over the
 	;; 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
 			    &key