From 4dfa7f7698017696e100e68a9632b5ad6f0ac40e Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 19 Jul 2020 11:10:00 +0200 Subject: [PATCH] wrong designators --- src/Model/Role.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Model/Role.hs b/src/Model/Role.hs index 7d955a6..b21df81 100644 --- a/src/Model/Role.hs +++ b/src/Model/Role.hs @@ -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