summaryrefslogtreecommitdiff
path: root/src/Propellor/Types/Result.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Types/Result.hs')
-rw-r--r--src/Propellor/Types/Result.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Propellor/Types/Result.hs b/src/Propellor/Types/Result.hs
index e8510abf..5209094b 100644
--- a/src/Propellor/Types/Result.hs
+++ b/src/Propellor/Types/Result.hs
@@ -24,6 +24,9 @@ instance ToResult Bool where
toResult False = FailedChange
toResult True = MadeChange
+instance ToResult Result where
+ toResult = id
+
-- | Results of actions, with color.
class ActionResult a where
getActionResult :: a -> (String, ColorIntensity, Color)