Fix typo succ -> pred

2015-04-29 18:41:28 +02:00 · 2015-04-29 18:41:28 +02:00 · 503562b9b6
parent cf5dfa439c
commit 503562b9b6
1 changed files with 1 additions and 1 deletions
--- a/Language/Haskell/GhcMod/Logging.hs
+++ b/Language/Haskell/GhcMod/Logging.hs
@ -46,7 +46,7 @@ increaseLogLevel l = succ l

 decreaseLogLevel :: GmLogLevel -> GmLogLevel
 decreaseLogLevel l | l == minBound = l
-decreaseLogLevel l = succ l
+decreaseLogLevel l = pred l

 -- |
 -- >>> Just GmDebug <= Nothing