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