diff --git a/Language/Haskell/GhcMod/Logging.hs b/Language/Haskell/GhcMod/Logging.hs
index f980635..37684a5 100644
--- 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