From 503562b9b6b49a327884ab595ff66b99c6557e62 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= <dxld@darkboxed.org>
Date: Wed, 29 Apr 2015 18:41:28 +0200
Subject: [PATCH] Fix typo succ -> pred

---
 Language/Haskell/GhcMod/Logging.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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