summaryrefslogtreecommitdiff
path: root/src/Propellor/Types.hs
diff options
context:
space:
mode:
authorJoey Hess2014-06-05 16:48:17 -0400
committerJoey Hess2014-06-05 16:48:17 -0400
commita2db41b4e8b6ef79f9db2a78b936e4c5e1d6f928 (patch)
tree817b5fae8e26d20b02f7c2353a21e3d3ffcec90f /src/Propellor/Types.hs
parent6dd22d3f26c348ca15bc37113686ba3e22292454 (diff)
add show instance for Host
doable now that Attr setting is cleaned up, and makes debugging easier
Diffstat (limited to 'src/Propellor/Types.hs')
-rw-r--r--src/Propellor/Types.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Propellor/Types.hs b/src/Propellor/Types.hs
index 0f96bbbc..d0481b69 100644
--- a/src/Propellor/Types.hs
+++ b/src/Propellor/Types.hs
@@ -40,6 +40,7 @@ data Host = Host
, hostProperties :: [Property]
, hostAttr :: Attr
}
+ deriving (Show)
-- | Propellor's monad provides read-only access to the host it's running
-- on, including its attributes.
@@ -64,6 +65,9 @@ data Property = Property
-- ^ a property can set an attribute of the host that has the property.
}
+instance Show Property where
+ show = propertyDesc
+
-- | A property that can be reverted.
data RevertableProperty = RevertableProperty Property Property