summaryrefslogtreecommitdiff
path: root/src/Propellor/Types/PrivData.hs
diff options
context:
space:
mode:
authorJoey Hess2015-01-03 19:08:32 -0400
committerJoey Hess2015-01-03 19:08:32 -0400
commit05004730c7ad30223989faddb7ff520f6af1cf53 (patch)
treefebce7536af6c7f31243ebbc4df2df8c5964b689 /src/Propellor/Types/PrivData.hs
parent932cb7c5d696a493a653032eba473ec07abb2f8d (diff)
add DnsSec privdata types
Diffstat (limited to 'src/Propellor/Types/PrivData.hs')
-rw-r--r--src/Propellor/Types/PrivData.hs15
1 files changed, 11 insertions, 4 deletions
diff --git a/src/Propellor/Types/PrivData.hs b/src/Propellor/Types/PrivData.hs
index f746a74c..636c9658 100644
--- a/src/Propellor/Types/PrivData.hs
+++ b/src/Propellor/Types/PrivData.hs
@@ -2,18 +2,19 @@ module Propellor.Types.PrivData where
import Propellor.Types.OS
--- | Note that removing or changing field names will break the
+-- | Note that removing or changing constructors will break the
-- serialized privdata files, so don't do that!
--- It's fine to add new fields.
+-- It's fine to add new constructors.
data PrivDataField
= DockerAuthentication
- | SshPubKey SshKeyType UserName
+ | SshPubKey SshKeyType UserName -- ^ For host key, use empty UserName
| SshPrivKey SshKeyType UserName
| SshAuthorizedKeys UserName
| Password UserName
| CryptPassword UserName
| PrivFile FilePath
| GpgKey
+ | DnsSec DnsSecKey
deriving (Read, Show, Ord, Eq)
-- | Combines a PrivDataField with a description of how to generate
@@ -49,7 +50,7 @@ instance IsPrivDataSource PrivDataSource where
-- for the web server serving that domain. Multiple hosts might
-- use that privdata.
--
--- This appears in serlialized privdata files.
+-- This appears in serialized privdata files.
newtype Context = Context String
deriving (Read, Show, Ord, Eq)
@@ -98,3 +99,9 @@ sshKeyTypeParam SshDsa = "DSA"
sshKeyTypeParam SshEcdsa = "ECDSA"
sshKeyTypeParam SshEd25519 = "ED25519"
+data DnsSecKey
+ = PubZSK -- ^ DNSSEC Zone Signing Key (public)
+ | PrivZSK -- ^ DNSSEC Zone Signing Key (private)
+ | PubKSK -- ^ DNSSEC Key Signing Key (public)
+ | PrivKSK -- ^ DNSSEC Key Signing Key (private)
+ deriving (Read, Show, Ord, Eq)