From 54e980f3a00f2c98e623930e6cb12e437ede2fe1 Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Tue, 16 Apr 2024 10:32:37 -0400
Subject: [PATCH] invert logic

---
 src/Handler/Util.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Handler/Util.hs b/src/Handler/Util.hs
index 4b82816..7937586 100644
--- a/src/Handler/Util.hs
+++ b/src/Handler/Util.hs
@@ -263,5 +263,5 @@ checkAdminAllowedPkgs pkgId adminId = do
     if length pkg > 0
         then do
             res <- runDB $ getAllowedPkgs (PkgRecordKey pkgId) (AdminKey adminId)
-            pure $ if length res > 0 then (True, True) else (False, True)
-        else pure (True, False)
\ No newline at end of file
+            pure $ if length res > 0 then (True, False) else (False, False)
+        else pure (True, True)
\ No newline at end of file