66 lines
1.8 KiB
Haskell
66 lines
1.8 KiB
Haskell
module Propellor.Types.PrivData where
|
|
|
|
import Propellor.Types.OS
|
|
|
|
-- | 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
|
|
| SshPubKey SshKeyType UserName
|
|
| SshPrivKey SshKeyType UserName
|
|
| SshAuthorizedKeys UserName
|
|
| Password UserName
|
|
| PrivFile FilePath
|
|
| GpgKey
|
|
deriving (Read, Show, Ord, Eq)
|
|
|
|
-- | A context in which a PrivDataField is used.
|
|
--
|
|
-- Often this will be a domain name. For example,
|
|
-- Context "www.example.com" could be used for the SSL cert
|
|
-- for the web server serving that domain. Multiple hosts might
|
|
-- use that privdata.
|
|
--
|
|
-- This appears in serlialized privdata files.
|
|
newtype Context = Context String
|
|
deriving (Read, Show, Ord, Eq)
|
|
|
|
-- | A context that varies depending on the HostName where it's used.
|
|
newtype HostContext = HostContext { mkHostContext :: HostName -> Context }
|
|
|
|
instance Show HostContext where
|
|
show hc = show $ mkHostContext hc "<hostname>"
|
|
|
|
instance Ord HostContext where
|
|
a <= b = show a <= show b
|
|
|
|
instance Eq HostContext where
|
|
a == b = show a == show b
|
|
|
|
-- | Class of things that can be used as a Context.
|
|
class IsContext c where
|
|
asContext :: HostName -> c -> Context
|
|
asHostContext :: c -> HostContext
|
|
|
|
instance IsContext HostContext where
|
|
asContext = flip mkHostContext
|
|
asHostContext = id
|
|
|
|
instance IsContext Context where
|
|
asContext _ c = c
|
|
asHostContext = HostContext . const
|
|
|
|
-- | Use when a PrivDataField is not dependent on any paricular context.
|
|
anyContext :: Context
|
|
anyContext = Context "any"
|
|
|
|
-- | Makes a HostContext that consists just of the hostname.
|
|
hostContext :: HostContext
|
|
hostContext = HostContext Context
|
|
|
|
type PrivData = String
|
|
|
|
data SshKeyType = SshRsa | SshDsa | SshEcdsa | SshEd25519
|
|
deriving (Read, Show, Ord, Eq)
|