Fix PSLimitNonPositive

This commit is contained in:
Gregor Kleen 2018-07-18 14:52:41 +02:00
parent b86d4de7ab
commit cb0ac4b7e9

View File

@ -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 ()