From 5a104675e4e18812f8794d9631d54c91b6d9be12 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 26 Nov 2014 10:51:29 -0400 Subject: avoid crash on no propellor.debug setting --- src/Propellor/Message.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Propellor/Message.hs b/src/Propellor/Message.hs index 49dc4934..bcd99649 100644 --- a/src/Propellor/Message.hs +++ b/src/Propellor/Message.hs @@ -18,6 +18,7 @@ import Propellor.Types import Utility.Monad import Utility.Env import Utility.Process +import Utility.Exception data MessageHandle = ConsoleMessageHandle @@ -113,7 +114,8 @@ checkDebugMode = go =<< getEnv "PROPELLOR_DEBUG" go Nothing = whenM (doesDirectoryExist ".git") $ whenM (any (== "1") . lines <$> getgitconfig) $ enableDebugMode - getgitconfig = readProcess "git" ["config", "propellor.debug"] + getgitconfig = catchDefaultIO "" $ + readProcess "git" ["config", "propellor.debug"] enableDebugMode :: IO () enableDebugMode = do -- cgit v1.2.3