cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

avoid crash on no propellor.debug setting

This commit is contained in:
Joey Hess 2014-11-26 10:51:29 -04:00
parent e07dc9b1d3
commit 5a104675e4
Failed to extract signature
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Propellor/Message.hs
View File

@ -18,6 +18,7 @@ import Propellor.Types
import Utility.Monad import Utility.Monad
import Utility.Env import Utility.Env
import Utility.Process import Utility.Process
import Utility.Exception
data MessageHandle data MessageHandle
= ConsoleMessageHandle = ConsoleMessageHandle
@ -113,7 +114,8 @@ checkDebugMode = go =<< getEnv "PROPELLOR_DEBUG"
go Nothing = whenM (doesDirectoryExist ".git") $ go Nothing = whenM (doesDirectoryExist ".git") $
whenM (any (== "1") . lines <$> getgitconfig) $ whenM (any (== "1") . lines <$> getgitconfig) $
enableDebugMode enableDebugMode
getgitconfig = readProcess "git" ["config", "propellor.debug"] getgitconfig = catchDefaultIO "" $
readProcess "git" ["config", "propellor.debug"]
enableDebugMode :: IO () enableDebugMode :: IO ()
enableDebugMode = do enableDebugMode = do