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