diff options
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) |