From 2126a02570bb00eb96e0ed1738898cf6b1024887 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 6 Dec 2012 10:39:51 -0400
Subject: assistant: Allow periods in ssh key comments.

---
 Assistant/Ssh.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Assistant')

diff --git a/Assistant/Ssh.hs b/Assistant/Ssh.hs
index 01e44f31b..dad0a8415 100644
--- a/Assistant/Ssh.hs
+++ b/Assistant/Ssh.hs
@@ -112,7 +112,7 @@ validateSshPubKey pubkey = either error return $ check $ words pubkey
 		(ssh, keytype) = separate (== '-') prefix
 
 	checkcomment comment
-		| all (\c -> isAlphaNum c || c == '@' || c == '-' || c == '_') comment = ok
+		| all (\c -> isAlphaNum c || c == '@' || c == '-' || c == '_' || c == '.') comment = ok
 		| otherwise = err "bad comment in ssh public key"
 
 addAuthorizedKeys :: Bool -> FilePath -> SshPubKey -> IO Bool
-- 
cgit v1.2.3