diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-03 02:27:17 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-03 02:27:17 -0400 |
| commit | fdb48b1dd11b802d0c2124fb3833672ca87ab870 (patch) | |
| tree | 6537cfb4d2211eaf478411ca95cec56dbe706bcc /Propellor/Property/Ssh.hs | |
| parent | 9a9f249ff0cfe2b5f601c84368457245ddb4d78b (diff) | |
api doc improvements
Diffstat (limited to 'Propellor/Property/Ssh.hs')
| -rw-r--r-- | Propellor/Property/Ssh.hs | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/Propellor/Property/Ssh.hs b/Propellor/Property/Ssh.hs index 28fe45f6..36766f56 100644 --- a/Propellor/Property/Ssh.hs +++ b/Propellor/Property/Ssh.hs @@ -1,4 +1,11 @@ -module Propellor.Property.Ssh where +module Propellor.Property.Ssh ( + setSshdConfig, + permitRootLogin, + passwordAuthentication, + hasAuthorizedKeys, + restartSshd, + uniqueHostKeys +) where import Propellor import qualified Propellor.Property.File as File @@ -38,8 +45,9 @@ hasAuthorizedKeys = go <=< homedir restartSshd :: Property restartSshd = cmdProperty "service" ["ssh", "restart"] -{- | Blow away existing host keys and make new ones. Use a flag - - file to prevent doing this more than once. -} +-- | Blows away existing host keys and make new ones. +-- Useful for systems installed from an image that might reuse host keys. +-- A flag file is used to only ever do this once. uniqueHostKeys :: Property uniqueHostKeys = flagFile prop "/etc/ssh/.unique_host_keys" `onChange` restartSshd |