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

propellor spin

This commit is contained in:
Joey Hess 2014-04-04 00:18:51 -04:00
parent 3aff991553
commit dd08ae61db
Failed to extract signature
2 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

@ -6,3 +6,4 @@ privdata/keyring.gpg~
Setup Setup
Setup.hi Setup.hi
Setup.o Setup.o
docker

18
Propellor/Message.hs
View File

@ -15,21 +15,25 @@ actionMessage desc a = do
r <- a r <- a
setTitle "propellor: running"
let (msg, intensity, color) = getActionResult r let (msg, intensity, color) = getActionResult r
putStr $ desc ++ " ... " putStr $ desc ++ " ... "
setSGR [SetColor Foreground intensity color] colorLine intensity color msg
putStrLn msg
setSGR []
setTitle "propellor: running"
hFlush stdout hFlush stdout
return r return r
warningMessage :: String -> IO () warningMessage :: String -> IO ()
warningMessage s = do warningMessage s = colorLine Vivid Red $ "** warning: " ++ s
setSGR [SetColor Foreground Vivid Red]
putStrLn $ "** warning: " ++ s colorLine :: ColorIntensity -> Color -> String -> IO ()
colorLine intensity color msg = do
setSGR [SetColor Foreground intensity color]
putStr msg
setSGR [] setSGR []
-- Note this comes after the color is reset, so that
-- the color set and reset happen in the same line.
putStrLn ""
hFlush stdout hFlush stdout
errorMessage :: String -> IO a errorMessage :: String -> IO a