fix spacing

This commit is contained in:
Lucy Cifferello
2022-06-17 11:49:29 -06:00
parent 1ded46ce5c
commit ab730ee47a

View File

@@ -373,7 +373,7 @@ getPackageListR = do
getLimitQuery :: Handler Int
getLimitQuery = lookupGetParam "per-page" >>= \case
Nothing -> pure $ packageListPageLimit defaults
Just pp-> case readMaybe pp of
Just pp -> case readMaybe pp of
Nothing -> do
let e = InvalidParamsE "get:per-page" pp
$logWarn (show e)