XXX: Fix wrong postgres type for SqlInt64

Solution taken from brandonchinn178#75
kaldonir · Jun 2, 2021 · d3fb340 · d3fb340
1 parent 6e34422
commit d3fb340
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/Database/Persist/Migration/Postgres.hs b/src/Database/Persist/Migration/Postgres.hs
@@ -120,9 +120,10 @@ showColumn Column{..} = concatSql
   (\sqls -> Text.unwords $ [quote colName, sqlType] ++ sqls)
   $ map showColumnProp colProps
   where
-    sqlType = if AutoIncrement `elem` colProps
-      then "SERIAL"
-      else showSqlType colType
+    sqlType = case (AutoIncrement `elem` colProps, colType) of
+      (True, SqlInt32) -> "SERIAL"
+      (True, SqlInt64) -> "BIGSERIAL"
+      _ -> showSqlType colType
 
 -- | Show a 'SqlType'. See `showSqlType` from `Database.Persist.Postgresql`.
 showSqlType :: SqlType -> Text