summaryrefslogtreecommitdiff
path: root/Propellor/Types.hs
diff options
context:
space:
mode:
authorJoey Hess2014-04-12 21:34:25 -0400
committerJoey Hess2014-04-12 21:34:25 -0400
commit6075fc636dfd9d8c946ed11a58ffa7059dd560d0 (patch)
treeba98715faf1752269da6b1d8ccfb04d6178268b1 /Propellor/Types.hs
parent39ea83ea2416cf67d3f837cc564472ffbef136f2 (diff)
propellor spin
Diffstat (limited to 'Propellor/Types.hs')
-rw-r--r--Propellor/Types.hs8
1 files changed, 7 insertions, 1 deletions
diff --git a/Propellor/Types.hs b/Propellor/Types.hs
index e6e02126..a30b183c 100644
--- a/Propellor/Types.hs
+++ b/Propellor/Types.hs
@@ -27,6 +27,8 @@ module Propellor.Types
, ActionResult(..)
, CmdLine(..)
, PrivDataField(..)
+ , GpgKeyId
+ , SshKeyType(..)
) where
import Data.Monoid
@@ -162,9 +164,13 @@ data CmdLine
-- It's fine to add new fields.
data PrivDataField
= DockerAuthentication
- | SshPrivKey UserName
+ | SshKey SshKeyType UserName
| Password UserName
| PrivFile FilePath
+ | GpgKey GpgKeyId
deriving (Read, Show, Ord, Eq)
+type GpgKeyId = String
+data SshKeyType = SshRsa | SshDsa
+ deriving (Read, Show, Ord, Eq)