summaryrefslogtreecommitdiff
path: root/Propellor/Types.hs
diff options
context:
space:
mode:
authorJoey Hess2014-04-01 13:51:58 -0400
committerJoey Hess2014-04-01 13:51:58 -0400
commit79cbdf35b1188d83e64a713efa82bc7a0a72a181 (patch)
tree4ad96d9fa0d2e61f6cd15a2b635fef67ea7c9bb1 /Propellor/Types.hs
parent2c328ad142421302b41bc961aa175f60e27f0ab3 (diff)
better method of starting propellor simplesh inside docker
Diffstat (limited to 'Propellor/Types.hs')
-rw-r--r--Propellor/Types.hs20
1 files changed, 20 insertions, 0 deletions
diff --git a/Propellor/Types.hs b/Propellor/Types.hs
index aef62de4..df139dd6 100644
--- a/Propellor/Types.hs
+++ b/Propellor/Types.hs
@@ -37,3 +37,23 @@ instance ActionResult Result where
getActionResult NoChange = ("unchanged", Dull, Green)
getActionResult MadeChange = ("done", Vivid, Green)
getActionResult FailedChange = ("failed", Vivid, Red)
+
+data CmdLine
+ = Run HostName
+ | Spin HostName
+ | Boot HostName
+ | Set HostName PrivDataField
+ | AddKey String
+ | Continue CmdLine
+ | Chain HostName
+ | ChainDocker HostName
+ deriving (Read, Show, Eq)
+
+-- | Note that removing or changing field names will break the
+-- serialized privdata files, so don't do that!
+-- It's fine to add new fields.
+data PrivDataField
+ = DockerAuthentication
+ | SshPrivKey UserName
+ | Password UserName
+ deriving (Read, Show, Ord, Eq)