diff --git a/src/Model/Product.hs b/src/Model/Product.hs index 471f5f9..53a0ce1 100644 --- a/src/Model/Product.hs +++ b/src/Model/Product.hs @@ -421,7 +421,7 @@ insertProduct (ProductSubmit ident price ml ava sup max apc ppc artnr) conn = , C.constant artnr ) ] - , iReturning = rReturning (\(id, _, _, _, _, _, _, _, _) -> id) + , iReturning = rReturning (\(id_, _, _, _, _, _, _, _, _) -> id_) , iOnConflict = Nothing } diff --git a/src/Model/User.hs b/src/Model/User.hs index 897b0de..c5ee078 100644 --- a/src/Model/User.hs +++ b/src/Model/User.hs @@ -37,10 +37,10 @@ initUser :: PGS.Query initUser = mconcat [ "create table if not exists \"user\" (" , "user_id serial primary key," - , "user_ident varchar(128) not null," + , "user_ident text not null," , "user_balance integer not null," , "user_timestamp date not null," - , "user_email varchar(128)," + , "user_email text," , "user_avatar integer," , "user_salt bytea not null," , "user_hash bytea,"