Fix typo succ -> pred
This commit is contained in:
parent
cf5dfa439c
commit
503562b9b6
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user