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

change insert to do nothing on conflict

Browse Source
This commit is contained in:
Lucy Cifferello
2024-07-11 16:39:09 -04:00
parent 4c42c177e8
commit cdd3950167
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

@@ -99,7 +99,7 @@ import Network.HTTP.Types.Status (status401)
import Yesod (getsYesod)
import Settings (AppSettings(whitelist))
import Network.HTTP.Types (status200)
import Database.Persist (insert_)
import Database.Persist (insert_, insertBy)
import Yesod (lookupPostParam)
import Data.Maybe (isNothing)
@@ -307,7 +307,7 @@ checkAdminAuthUpload pkgId = do
else if authorized && newPkg
-- if pkg is whitelisted and a new upload, add as authorized for this admin user
then do
runDB $ insert_ (AdminPkgs (AdminKey name) pkgId)
_ <- runDB $ insertBy (AdminPkgs (AdminKey name) pkgId)
pure name
else sendResponseText status401 "User not authorized to upload this package."
else sendResponseText status401 "Package does not belong on this registry."