From bb63e1ea82d72d53191ac889f50bb055a118db04 Mon Sep 17 00:00:00 2001
From: Lucy <12953208+elvece@users.noreply.github.com>
Date: Mon, 22 Apr 2024 12:59:51 -0400
Subject: [PATCH] fix logic ordering (#141)

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

diff --git a/src/Handler/Util.hs b/src/Handler/Util.hs
index 80f077b..9dbf430 100644
--- a/src/Handler/Util.hs
+++ b/src/Handler/Util.hs
@@ -272,12 +272,12 @@ checkAdminAllowedPkgs pkgId adminId = do
     -- if pkg does not exist yet, allow, because authorized by whitelist
     pkg <- runDB $ getPkgById (PkgRecordKey pkgId)
     pkgExtracted <- runDB $ getPkgOnlyCreated (PkgRecordKey pkgId)
-    if length pkg > 0
-        then do
+    if length pkgExtracted > 0
+        then pure (True, True)
+        else if length pkg > 0
+            then do
             res <- runDB $ getAllowedPkgs pkgId (AdminKey adminId)
             pure $ if length res > 0 then (True, False) else (False, False)
-        else if length pkgExtracted > 0
-            then pure (True, True)
         else pure (True, True)
 
 checkAdminAuth :: PkgId -> Handler (Bool, Text)