Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-30 11:51:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix spacing

Browse Source
This commit is contained in:
Lucy Cifferello
2022-06-17 11:49:29 -06:00
parent 1ded46ce5c
commit ab730ee47a
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Marketplace.hs
View File

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