From 05004730c7ad30223989faddb7ff520f6af1cf53 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 3 Jan 2015 19:08:32 -0400 Subject: add DnsSec privdata types --- src/Propellor/Types/PrivData.hs | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) (limited to 'src/Propellor/Types/PrivData.hs') 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) -- cgit v1.2.3