From ab730ee47aed0324ac3d51f7fca8a7e360249ab0 Mon Sep 17 00:00:00 2001 From: Lucy Cifferello <12953208+elvece@users.noreply.github.com> Date: Fri, 17 Jun 2022 11:49:29 -0600 Subject: [PATCH] fix spacing --- src/Handler/Marketplace.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)