propellor spin

Propellor/Engine.hs

@@ -23,6 +23,7 @@ ensureProperties' ps = ensure ps NoChange
 	ensure [] rs = return rs
 	ensure (l:ls) rs = do
 		setTitle $ propertyDesc l
+		hFlush stdout
 		r <- ensureProperty l
 		clearFromCursorToLineBeginning
 		setCursorColumn 0
@@ -38,6 +39,7 @@ ensureProperties' ps = ensure ps NoChange
 				setSGR [SetColor Foreground Vivid Green]
 				putStrLn "done"
 		setSGR []
+		hFlush stdout
 		ensure ls (combineResult r rs)
 
 warningMessage :: String -> IO ()

config.hs

@@ -35,7 +35,7 @@ getProperties hostname@"clam.kitenet.net" = Just
 	, Tor.isBridge
 	, JoeySites.oldUseNetshellBox
 	, Docker.configured
-	, Apt.installed ["git-annex"]
+	, Apt.installed ["git-annex", "mtr"]
 	-- This is not an important system so I don't want to need to 
 	-- manually upgrade it.
 	, Apt.unattendedUpgrades True