propellor spin
This commit is contained in:
parent
a860de6fdc
commit
2f9300f2a1
|
@ -31,7 +31,7 @@ class ActionResult a where
|
||||||
|
|
||||||
instance ActionResult Bool where
|
instance ActionResult Bool where
|
||||||
getActionResult False = ("failed", Vivid, Red)
|
getActionResult False = ("failed", Vivid, Red)
|
||||||
getActionResult True = ("ok", Vivid, Green)
|
getActionResult True = ("ok", Dull, Green)
|
||||||
|
|
||||||
instance ActionResult Result where
|
instance ActionResult Result where
|
||||||
getActionResult NoChange = ("unchanged", Dull, Green)
|
getActionResult NoChange = ("unchanged", Dull, Green)
|
||||||
|
|
Loading…
Reference in New Issue