fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix PSLimitNonPositive

Browse Source
This commit is contained in:
Gregor Kleen 2018-07-18 14:52:41 +02:00
parent b86d4de7ab
commit cb0ac4b7e9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Utils/Table/Pagination.hs
View File

@ -204,7 +204,7 @@ instance Default (PSValidator m x) where
l <- asks piLimit l <- asks piLimit
case l of case l of
Just l' Just l'
| l' >= 0 -> tell . pure $ SomeMessage MsgPSLimitNonPositive | l' <= 0 -> tell . pure $ SomeMessage MsgPSLimitNonPositive
| otherwise -> modify $ \ps -> ps { psLimit = l' } | otherwise -> modify $ \ps -> ps { psLimit = l' }
Nothing -> return () Nothing -> return ()