summaryrefslogtreecommitdiff
path: root/Propellor/Property/Ssh.hs
diff options
context:
space:
mode:
authorJoey Hess2014-04-03 02:27:17 -0400
committerJoey Hess2014-04-03 02:27:17 -0400
commitfdb48b1dd11b802d0c2124fb3833672ca87ab870 (patch)
tree6537cfb4d2211eaf478411ca95cec56dbe706bcc /Propellor/Property/Ssh.hs
parent9a9f249ff0cfe2b5f601c84368457245ddb4d78b (diff)
api doc improvements
Diffstat (limited to 'Propellor/Property/Ssh.hs')
-rw-r--r--Propellor/Property/Ssh.hs14
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