diff --git a/src/Database/Queries.hs b/src/Database/Queries.hs
index 9ae3f5f..91195db 100644
--- a/src/Database/Queries.hs
+++ b/src/Database/Queries.hs
@@ -72,7 +72,7 @@ import Database.Esqueleto.Experimental (
     (:&) (..),
     (==.),
     (^.),
-    (||.), not_,
+    (||.),
  )
 import Database.Persist qualified as P
 import Database.Persist.Postgresql (
diff --git a/src/Handler/Util.hs b/src/Handler/Util.hs
index 4b99934..91164a6 100644
--- a/src/Handler/Util.hs
+++ b/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)