nek0/mateamt
1
0
Fork 0
Code Issues Pull requests Releases Activity

some small adjustments

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Model/Product.hs
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
}

4
src/Model/User.hs
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,"