From 9500e9bb810202eabc6a299ca8aa3a70fa5dcee6 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 27 Nov 2014 17:55:56 -0400 Subject: [PATCH] added more debugging --- src/Propellor/Engine.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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