Capture full column type.

Capture full column type instead of just whether it is an integer.

* dump.scm (dump-data-table): Capture full column type in <column>
object.
* dump/table.scm (<column>)[int?]: Delete member.
[type]: New member.
Export column-type instead of column-int?.

1 files changed, 1 insertions, 2 deletions

diff --git a/dump.scm b/dump.scm
index ccf85ca..e35b377 100755
--- a/dump.scm
+++ b/dump.scm
@@ -510,8 +510,7 @@ is a <table> object."
          (set-table-columns table
            (sql-map (lambda (row)
                       (make-column (assoc-ref row "Field")
-                                   (or (string-prefix? "int" (assoc-ref row "Type"))
-                                       (string-prefix? "smallint" (assoc-ref row "Type")))))
+                                   (assoc-ref row "Type")))
                     db
                     (format #f "SHOW COLUMNS FROM ~a" (table-name table)))))
        (sql-map (lambda (row)