summaryrefslogtreecommitdiff
path: root/src/Propellor/Types.hs
diff options
context:
space:
mode:
authorJoey Hess2014-06-05 16:52:45 -0400
committerJoey Hess2014-06-05 16:52:45 -0400
commitf8bad2726760268f1daae2a3329be5db310727b8 (patch)
treeab5db4785fee3c7e919213b97975e727e7724907 /src/Propellor/Types.hs
parent383548956354a00cf24323310e9981ccea6a1ddf (diff)
parentdbffd982bac47cebd3fc67e51b46182f7e43392d (diff)
Merge branch 'joeyconfig'
Diffstat (limited to 'src/Propellor/Types.hs')
-rw-r--r--src/Propellor/Types.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Propellor/Types.hs b/src/Propellor/Types.hs
index 4ea97bce..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
@@ -132,6 +136,7 @@ data CmdLine
| Spin HostName
| Boot HostName
| Set HostName PrivDataField
+ | Dump HostName PrivDataField
| AddKey String
| Continue CmdLine
| Chain HostName