From b84c9bbb7c9db688118ad756c1c43ef034fd98fb Mon Sep 17 00:00:00 2001
From: Mario Lang <mlang@delysid.org>
Date: Sun, 13 Sep 2015 00:46:49 +0200
Subject: Follow some hlint suggestions.

---
 src/Propellor/Message.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/Propellor/Message.hs')

diff --git a/src/Propellor/Message.hs b/src/Propellor/Message.hs
index f62d3cd9..94892da8 100644
--- a/src/Propellor/Message.hs
+++ b/src/Propellor/Message.hs
@@ -112,8 +112,7 @@ checkDebugMode = go =<< getEnv "PROPELLOR_DEBUG"
 	go (Just "1") = enableDebugMode
 	go (Just _) = noop
 	go Nothing = whenM (doesDirectoryExist ".git") $
-		whenM (any (== "1") . lines <$> getgitconfig) $
-			enableDebugMode
+		whenM (elem "1" . lines <$> getgitconfig) enableDebugMode
 	getgitconfig = catchDefaultIO "" $
 		readProcess "git" ["config", "propellor.debug"]
 
-- 
cgit v1.3-2-g0d8e