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]
|
, hostProperties :: [Property]
|
||||||
, hostAttr :: Attr
|
, hostAttr :: Attr
|
||||||
}
|
}
|
||||||
|
deriving (Show)
|
||||||
|
|
||||||
-- | Propellor's monad provides read-only access to the host it's running
|
-- | Propellor's monad provides read-only access to the host it's running
|
||||||
-- on, including its attributes.
|
-- on, including its attributes.
|
||||||
|
@ -64,6 +65,9 @@ data Property = Property
|
||||||
-- ^ a property can set an attribute of the host that has the 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.
|
-- | A property that can be reverted.
|
||||||
data RevertableProperty = RevertableProperty Property Property
|
data RevertableProperty = RevertableProperty Property Property
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue