Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-04-04 21:59:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

test

Browse Source
This commit is contained in:
Lucy Cifferello
2024-04-17 17:18:58 -04:00
parent 97a8cf85c8
commit 0afe2e49aa
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Database/Queries.hs
View File

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

2
src/Handler/Util.hs
View File

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