From a2db41b4e8b6ef79f9db2a78b936e4c5e1d6f928 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 5 Jun 2014 16:48:17 -0400 Subject: add show instance for Host doable now that Attr setting is cleaned up, and makes debugging easier --- src/Propellor/Types.hs | 4 ++++ 1 file changed, 4 insertions(+) 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 -- cgit v1.2.3