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

wrong designators

Browse source
This commit is contained in:
nek0 2020-07-19 11:10:00 +02:00
parent 8cb730ec67
commit 4dfa7f7698
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Model/Role.hs
View file

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