From 786cddd7b357ed50738c9d19ad4f0649bf33f14d Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 19 Jul 2020 11:11:14 +0200 Subject: [PATCH] forgot do --- src/Model/Role.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 =