add show instance for Host

doable now that Attr setting is cleaned up, and makes debugging easier

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