Fix typo succ -> pred

This commit is contained in:
Daniel Gröber 2015-04-29 18:41:28 +02:00
parent cf5dfa439c
commit 503562b9b6

View File

@ -46,7 +46,7 @@ increaseLogLevel l = succ l
decreaseLogLevel :: GmLogLevel -> GmLogLevel decreaseLogLevel :: GmLogLevel -> GmLogLevel
decreaseLogLevel l | l == minBound = l decreaseLogLevel l | l == minBound = l
decreaseLogLevel l = succ l decreaseLogLevel l = pred l
-- | -- |
-- >>> Just GmDebug <= Nothing -- >>> Just GmDebug <= Nothing