From 0afe2e49aac0836b4ba33461910a6a8f468db753 Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Wed, 17 Apr 2024 17:18:58 -0400
Subject: [PATCH] test

---
 src/Database/Queries.hs | 2 +-
 src/Handler/Util.hs     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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)