From 0f9a7a8c53d216ca7a6d0a25462b19ab1fa00bb4 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Mon, 20 Nov 2023 15:02:44 +0100 Subject: [PATCH] fix(firm): show default supervisors with no employees too --- src/Handler/Firm.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Handler/Firm.hs b/src/Handler/Firm.hs index a37f59caa..479b2009f 100644 --- a/src/Handler/Firm.hs +++ b/src/Handler/Firm.hs @@ -845,7 +845,8 @@ mkFirmSuperTable isAdmin cid = do where dbtSQLQuery = \(usr `E.LeftOuterJoin` usrCmp) -> do EL.on $ usr E.^. UserId E.=?. usrCmp E.?. UserCompanyUser E.&&. usrCmp E.?. UserCompanyCompany E.?=. E.val cid - E.where_ $ E.exists $ firmQuerySupervisedBy cid Nothing usr + E.where_ $ E.isTrue (usrCmp E.?. UserCompanySupervisor) + E.||. E.exists (firmQuerySupervisedBy cid Nothing usr) return ( usr , usr & firmCountForSupervisor cid Nothing , usr & firmCountForSupervisor cid (Just (E.^. UserSupervisorRerouteNotifications))