Fix PSLimitNonPositive
This commit is contained in:
parent
b86d4de7ab
commit
cb0ac4b7e9
@ -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 ()
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user