aboutsummaryrefslogtreecommitdiff
path: root/dump.scm
diff options
context:
space:
mode:
Diffstat (limited to 'dump.scm')
-rwxr-xr-xdump.scm3
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)