cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-03-31 01:16:01 -04:00
parent ed681de096
commit 2100a0349a
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Propellor/Engine.hs
View File

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

2
config.hs
View File

@ -35,7 +35,7 @@ getProperties hostname@"clam.kitenet.net" = Just
, Tor.isBridge , Tor.isBridge
, JoeySites.oldUseNetshellBox , JoeySites.oldUseNetshellBox
, Docker.configured , 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 -- This is not an important system so I don't want to need to
-- manually upgrade it. -- manually upgrade it.
, Apt.unattendedUpgrades True , Apt.unattendedUpgrades True