aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/postgres.sml
diff options
context:
space:
mode:
Diffstat (limited to 'src/postgres.sml')
-rw-r--r--src/postgres.sml10
1 files changed, 7 insertions, 3 deletions
diff --git a/src/postgres.sml b/src/postgres.sml
index 7209f34a..70360163 100644
--- a/src/postgres.sml
+++ b/src/postgres.sml
@@ -75,9 +75,13 @@ fun checkRel (table, checkNullable) (s, xts) =
String.concat ["(column_name = 'uw_",
CharVector.map
Char.toLower (ident x),
- "' AND data_type = '",
- p_sql_type_base t,
- "'",
+ (case p_sql_type_base t of
+ "bigint" =>
+ "' AND data_type IN ('bigint', 'numeric')"
+ | t =>
+ String.concat ["' AND data_type = '",
+ t,
+ "'"]),
if checkNullable then
(" AND is_nullable = '"
^ (if isNotNull t then