diff options
| -rwxr-xr-x | dump.scm | 3 | ||||
| -rw-r--r-- | dump/table.scm | 6 |
2 files changed, 4 insertions, 5 deletions
@@ -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) diff --git a/dump/table.scm b/dump/table.scm index 1a9abc6..8f6a128 100644 --- a/dump/table.scm +++ b/dump/table.scm @@ -7,7 +7,7 @@ set-table-columns make-column column-name - column-int?)) + column-type)) (define-immutable-record-type <table> (make-table name size columns) @@ -17,7 +17,7 @@ (columns table-columns set-table-columns)) (define-immutable-record-type <column> - (make-column name int?) + (make-column name type) column? (name column-name) - (int? column-int?)) + (type column-type)) |