diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-31 18:36:53 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-31 18:36:53 -0400 |
| commit | eb78bbae190a0f820d6e16561fb03307eea9e4d4 (patch) | |
| tree | 8bfdd16ca967fe9f9e823012354e5263bab6b5fc /Propellor/Types.hs | |
| parent | c246a8ee745723140150c8b8d35b7a7121c90c11 (diff) | |
propellor spin
Diffstat (limited to 'Propellor/Types.hs')
| -rw-r--r-- | Propellor/Types.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Propellor/Types.hs b/Propellor/Types.hs index 5874863c..00ddbd98 100644 --- a/Propellor/Types.hs +++ b/Propellor/Types.hs @@ -30,8 +30,8 @@ class ActionResult a where getActionResult :: a -> (String, ColorIntensity, Color) instance ActionResult Bool where - getActionResult False = ("ok", Vivid, Red) - getActionResult True = ("failed", Vivid, Green) + getActionResult False = ("failed", Vivid, Red) + getActionResult True = ("ok", Vivid, Green) instance ActionResult Result where getActionResult NoChange = ("unchanged", Dull, Green) |