some small adjustments

This commit is contained in:
nek0 2019-08-09 20:56:04 +02:00
parent 61b094e3e6
commit 4e1f1e70d2
2 changed files with 3 additions and 3 deletions

View File

@ -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
}

View File

@ -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,"