Fix wrong postgres type for SqlInt64

Solution taken from brandonchinn178#75 Author: kaldonir <mnapi@gmx.de> Date: Wed Jun 2 17:17:39 2021 +0200
tfc · Sep 27, 2021 · ea538ae · ea538ae
1 parent 037679e
commit ea538ae
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 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

diff --git a/test/goldens-unit/postgresql/migration-with-shorter-path.txt b/test/goldens-unit/postgresql/migration-with-shorter-path.txt
@@ -1,3 +1,3 @@
-CREATE TABLE IF NOT EXISTS "person" ( "id" SERIAL NOT NULL ,"gender" VARCHAR,PRIMARY KEY ( "id" ) )
+CREATE TABLE IF NOT EXISTS "person" ( "id" BIGSERIAL NOT NULL ,"gender" VARCHAR,PRIMARY KEY ( "id" ) )
 
 []