diff --git a/src/Model/Role.hs b/src/Model/Role.hs index b21df81..5d0c5dd 100644 --- a/src/Model/Role.hs +++ b/src/Model/Role.hs @@ -250,7 +250,7 @@ associateUserToRole -> Int -- ^ Role id -> PGS.Connection -> Matehandler Int -- ^ Resulting UserToRole id -associateUserToRole uid rid conn = +associateUserToRole uid rid conn = do a <- runInsert_ conn $ Insert { iTable = userToRoleTable , iRows =