From cb1e715e9b2da2f5ac0bd03b636de0f961307efd Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Fri, 29 Jan 2021 14:38:40 +0100
Subject: [PATCH] fix(workflows): don't cache instance-list empty for
 correctness

---
 src/Foundation/Authorization.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Foundation/Authorization.hs b/src/Foundation/Authorization.hs
index c69a93ba3..ccfa3b84c 100644
--- a/src/Foundation/Authorization.hs
+++ b/src/Foundation/Authorization.hs
@@ -1254,7 +1254,7 @@ tagAccessPredicate AuthRegisterGroup = APDB $ \_ _ mAuthId route _ -> case route
         return Authorized
   r -> $unsupportedAuthPredicate AuthRegisterGroup r
 tagAccessPredicate AuthEmpty = APDB $ \_ _ mAuthId route _
-  -> let workflowInstanceWorkflowsEmpty rScope win = selectLanguageI18n <=< $memcacheAuthHere' (Right diffDay) (mAuthId, route) . maybeT (unauthorizedI18n MsgUnauthorizedWorkflowWorkflowsNotEmpty) $ do
+  -> let workflowInstanceWorkflowsEmpty rScope win = selectLanguageI18n <=< $cachedHereBinary (mAuthId, route) . maybeT (unauthorizedI18n MsgUnauthorizedWorkflowWorkflowsNotEmpty) $ do
            scope <- fromRouteWorkflowScope rScope
            let dbScope = scope ^. _DBWorkflowScope
                getWorkflowWorkflows = E.selectSource . E.from $ \(workflowWorkflow `E.InnerJoin` workflowInstance) -> do