From cb0ac4b7e9085bc3e2ab640b9a38606027b067f9 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 18 Jul 2018 14:52:41 +0200 Subject: [PATCH] Fix PSLimitNonPositive --- src/Handler/Utils/Table/Pagination.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 ()