diff --git a/src/Handler/Marketplace.hs b/src/Handler/Marketplace.hs
index 776ac5e..568dca4 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      = ""
@@ -372,12 +373,11 @@ 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)
                     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