diff options
Diffstat (limited to 'dump.scm')
| -rwxr-xr-x | dump.scm | 3 |
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) |