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

View File

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