add show instance for Host

doable now that Attr setting is cleaned up, and makes debugging easier
This commit is contained in:
Joey Hess 2014-06-05 16:48:17 -04:00
parent 6dd22d3f26
commit a2db41b4e8
1 changed files with 4 additions and 0 deletions

View File

@ -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