diff --git a/src/Handler/Utils/Table/Pagination.hs b/src/Handler/Utils/Table/Pagination.hs index 1b6f19ba2..1a6e2df4b 100644 --- a/src/Handler/Utils/Table/Pagination.hs +++ b/src/Handler/Utils/Table/Pagination.hs @@ -204,7 +204,7 @@ instance Default (PSValidator m x) where l <- asks piLimit case l of Just l' - | l' >= 0 -> tell . pure $ SomeMessage MsgPSLimitNonPositive + | l' <= 0 -> tell . pure $ SomeMessage MsgPSLimitNonPositive | otherwise -> modify $ \ps -> ps { psLimit = l' } Nothing -> return ()