From eb78bbae190a0f820d6e16561fb03307eea9e4d4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Mar 2014 18:36:53 -0400 Subject: propellor spin --- Propellor/Types.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Propellor/Types.hs') 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) -- cgit v1.3-2-g0d8e