propellor spin

Propellor/Property/Ssh.hs

@@ -66,22 +66,24 @@ uniqueHostKeys = flagFile prop "/etc/ssh/.unique_host_keys"
 				["configure"]
 
 -- | Sets up a user with a ssh private key from the site's privdata.
---
--- The ssh public key (.pub) is not installed. Ssh does not use it.
 keyImported :: SshKeyType -> UserName -> Property
-keyImported keytype user = Property desc install
+keyImported keytype user = propertyList desc
+	[ Property desc (install (SshPubKey keytype user) ".pub")
+	, Property desc (install (SshPrivKey keytype user) "")
+	]
   where
 	desc = user ++ " has ssh key"
-	install = do
+	install p ext = do
-		f <- liftIO keyfile
+		f <- liftIO $ keyfile ext
 		ifM (liftIO $ doesFileExist f)
 			( noChange
-			, withPrivData (SshKey keytype user) $ \key -> makeChange $
+			, withPrivData p $ \key -> makeChange $
 				writeFileProtected f key
 			)
-	keyfile = do
+	keyfile ext = do
 		home <- homeDirectory <$> getUserEntryForName user
-		return $ home </> ".ssh" </> "id_" ++ 
+		return $ home </> ".ssh" </> "id_"
-			case keytype of
+			++ case keytype of
 				SshRsa -> "rsa"
 				SshDsa -> "dsa"
+			++ ext

Propellor/Types.hs

@@ -164,7 +164,8 @@ data CmdLine
 -- It's fine to add new fields.
 data PrivDataField
 	= DockerAuthentication
-	| SshKey SshKeyType UserName
+	| SshPubKey SshKeyType UserName
+	| SshPrivKey SshKeyType UserName
 	| Password UserName
 	| PrivFile FilePath
 	| GpgKey GpgKeyId