accidentally deleted necessary log

This commit is contained in:
Lucy Cifferello
2022-06-17 11:48:59 -06:00
parent 0a41a9d526
commit 1ded46ce5c

View File

@@ -376,6 +376,7 @@ getPackageListR = do
Just pp-> case readMaybe pp of Just pp-> case readMaybe pp of
Nothing -> do Nothing -> do
let e = InvalidParamsE "get:per-page" pp let e = InvalidParamsE "get:per-page" pp
$logWarn (show e)
sendResponseStatus status400 e sendResponseStatus status400 e
Just (l :: Int) -> pure l Just (l :: Int) -> pure l
getOsVersionQuery :: Handler (Maybe VersionRange) getOsVersionQuery :: Handler (Maybe VersionRange)