test

src/Database/Queries.hs

@@ -72,7 +72,7 @@ import Database.Esqueleto.Experimental (
     (:&) (..),
     (==.),
     (^.),
-    (||.), not_,
+    (||.),
  )
 import Database.Persist qualified as P
 import Database.Persist.Postgresql (

src/Handler/Util.hs

@@ -313,7 +313,7 @@ checkAdminAuthUpload pkgId = do
 
 getPkgIdParam :: MonadHandler m => m (Maybe PkgId)
 getPkgIdParam = do
-    lookupPostParam "id" >>= \case
+    lookupGetParam "id" >>= \case
         Nothing -> pure Nothing
         Just v -> case readMaybe v of
             Nothing -> sendResponseStatus status400 ("Invalid PkgId" :: Text)