Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 18:21:52 +00:00
Code Issues Packages Projects Releases Wiki Activity

invert logic

Browse Source
This commit is contained in:
Lucy Cifferello
2024-04-16 10:32:37 -04:00
parent e9fa0857e5
commit 54e980f3a0
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Util.hs
View File

@@ -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)
pure $ if length res > 0 then (True, False) else (False, False)
else pure (True, True)