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 , C.constant artnr
) )
] ]
, iReturning = rReturning (\(id, _, _, _, _, _, _, _, _) -> id) , iReturning = rReturning (\(id_, _, _, _, _, _, _, _, _) -> id_)
, iOnConflict = Nothing , iOnConflict = Nothing
} }

4
src/Model/User.hs
View file

@ -37,10 +37,10 @@ initUser :: PGS.Query
initUser = mconcat initUser = mconcat
[ "create table if not exists \"user\" (" [ "create table if not exists \"user\" ("
, "user_id serial primary key," , "user_id serial primary key,"
, "user_ident varchar(128) not null," , "user_ident text not null,"
, "user_balance integer not null," , "user_balance integer not null,"
, "user_timestamp date not null," , "user_timestamp date not null,"
, "user_email varchar(128)," , "user_email text,"
, "user_avatar integer," , "user_avatar integer,"
, "user_salt bytea not null," , "user_salt bytea not null,"
, "user_hash bytea," , "user_hash bytea,"