add show instance for Host
doable now that Attr setting is cleaned up, and makes debugging easier
This commit is contained in:
parent
6dd22d3f26
commit
a2db41b4e8
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue