diff options
| author | Joey Hess <joeyh@joeyh.name> | 2014-12-07 15:21:55 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2014-12-07 15:21:55 -0400 |
| commit | 2fe0b28982c403ea49c71854da11354067527394 (patch) | |
| tree | 9460f920078d14a068e709b76b610fa641f089be /src | |
| parent | 3b0b6f44dd60807d7005421eed95cf53c731fc28 (diff) | |
more uses for hostContext
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/Ssh.hs | 2 | ||||
| -rw-r--r-- | src/Propellor/Types/PrivData.hs | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/src/Propellor/Property/Ssh.hs b/src/Propellor/Property/Ssh.hs index 88a757bd..fcae6498 100644 --- a/src/Propellor/Property/Ssh.hs +++ b/src/Propellor/Property/Ssh.hs @@ -80,7 +80,7 @@ randomHostKeys = flagFile prop "/etc/ssh/.unique_host_keys" [ "DPKG_MAINTSCRIPT_NAME=postinst DPKG_MAINTSCRIPT_PACKAGE=openssh-server /var/lib/dpkg/info/openssh-server.postinst configure" ] -- | Sets all types of ssh host keys from the privdata. -hostKeys :: Context -> Property +hostKeys :: IsContext c => c -> Property hostKeys ctx = propertyList "known ssh host keys" [ hostKey SshDsa ctx , hostKey SshRsa ctx diff --git a/src/Propellor/Types/PrivData.hs b/src/Propellor/Types/PrivData.hs index a18e7cec..80dad762 100644 --- a/src/Propellor/Types/PrivData.hs +++ b/src/Propellor/Types/PrivData.hs @@ -21,6 +21,8 @@ data PrivDataField -- 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) |