summaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
Diffstat (limited to 'Assistant')
-rw-r--r--Assistant/Ssh.hs2
1 files changed, 1 insertions, 1 deletions
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