From 4794e6ae16ade7bcc142ff263613620dacbf929b Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Fri, 17 Jun 2022 11:47:15 -0600
Subject: [PATCH] augment default per page limit and parse it as int

---
 src/Handler/Marketplace.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Handler/Marketplace.hs b/src/Handler/Marketplace.hs
index 776ac5e..eac72e1 100644
--- a/src/Handler/Marketplace.hs
+++ b/src/Handler/Marketplace.hs
@@ -5,6 +5,7 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE TupleSections #-}
 {-# LANGUAGE TypeApplications #-}
+{-# LANGUAGE ScopedTypeVariables #-}
 {-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
 {-# HLINT ignore "Redundant <$>" #-}
 
@@ -335,7 +336,7 @@ getPackageListR = do
     PackageListRes <$> mapConcurrently constructPackageListApiRes pkgsWithDependencies
     where
         defaults = PackageListDefaults { packageListOrder      = DESC
-                                       , packageListPageLimit  = 20
+                                       , packageListPageLimit  = 100
                                        , packageListPageNumber = 1
                                        , packageListCategory   = Nothing
                                        , packageListQuery      = ""
@@ -377,7 +378,7 @@ getPackageListR = do
                     let e = InvalidParamsE "get:per-page" pp
                     $logWarn (show e)
                     sendResponseStatus status400 e
-                Just l -> pure l
+                Just (l  :: Int) -> pure l
         getOsVersionQuery :: Handler (Maybe VersionRange)
         getOsVersionQuery = lookupGetParam "eos-version-compat" >>= \case
             Nothing  -> pure Nothing