diff --git a/src/Propellor/Engine.hs b/src/Propellor/Engine.hs index b0b1695..81cc239 100644 --- a/src/Propellor/Engine.hs +++ b/src/Propellor/Engine.hs @@ -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