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

added more debugging

This commit is contained in:
Joey Hess 2014-11-27 17:55:56 -04:00
parent 7ddb862176
commit 9500e9bb81
Failed to extract signature
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Propellor/Engine.hs
View File

@ -80,10 +80,13 @@ processChainOutput h = go Nothing
debug ["read from chained propellor: ", show v] debug ["read from chained propellor: ", show v]
case v of case v of
Nothing -> case lastline of Nothing -> case lastline of
Nothing -> pure FailedChange Nothing -> do
debug ["chained propellor output nothing; assuming it failed"]
return FailedChange
Just l -> case readish l of Just l -> case readish l of
Just r -> pure r Just r -> pure r
Nothing -> do Nothing -> do
debug ["chained propellor output did not end with a Result; assuming it failed"]
putStrLn l putStrLn l
hFlush stdout hFlush stdout
return FailedChange return FailedChange