wrong designators

This commit is contained in:
nek0 2020-07-19 11:10:00 +02:00
parent 8cb730ec67
commit 4dfa7f7698

View file

@ -247,9 +247,9 @@ queryRoleIdByName caps con = do
associateUserToRole
:: Int -- ^ User id
:: Int -- ^ Role id
:: PGS.Connection
:: Matehandler Int -- ^ Resulting UserToRole id
-> Int -- ^ Role id
-> PGS.Connection
-> Matehandler Int -- ^ Resulting UserToRole id
associateUserToRole uid rid conn =
a <- runInsert_ conn $ Insert
{ iTable = userToRoleTable