propellor spin

src/Propellor/Engine.hs

@@ -77,6 +77,6 @@ processChainOutput h = go Nothing
 			Nothing -> pure $ fromMaybe FailedChange $
 				readish =<< lastline
 			Just s -> do
-				maybe noop putStrLn lastline
+				maybe noop (\l -> unless (null l) (putStrLn l)) lastline
 				hFlush stdout
 				go (Just s)

src/Propellor/Property/Chroot.hs

@@ -109,6 +109,7 @@ chain hostlist hn loc = case findHostNoAlias hostlist hn of
   where
 	go h = do
 		changeWorkingDirectory localdir
+		forceConsole
 		onlyProcess (provisioningLock loc) $ do
 			r <- runPropellor h $ ensureProperties $ hostProperties h
 			putStrLn $ "\n" ++ show r