diff --git a/src/Handler/Marketplace.hs b/src/Handler/Marketplace.hs index 290e122..eac72e1 100644 --- a/src/Handler/Marketplace.hs +++ b/src/Handler/Marketplace.hs @@ -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)