display
This commit is contained in:
parent
ed52983146
commit
713a36f641
|
@ -85,10 +85,10 @@ ensureProperties ps = do
|
|||
putStrLn "failed"
|
||||
NoChange -> do
|
||||
setSGR [SetColor Foreground Dull Green]
|
||||
putStrLn "(ok)"
|
||||
putStrLn "unchanged"
|
||||
MadeChange -> do
|
||||
setSGR [SetColor Foreground Vivid Green]
|
||||
putStrLn "(ok)"
|
||||
putStrLn "ok"
|
||||
setSGR []
|
||||
ensure ls (combineResult r rs)
|
||||
|
||||
|
|
Loading…
Reference in New Issue