diff options
Diffstat (limited to 'Propellor/Types.hs')
| -rw-r--r-- | Propellor/Types.hs | 20 |
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) |