diff options
Diffstat (limited to 'Assistant/Ssh.hs')
| -rw-r--r-- | Assistant/Ssh.hs | 2 |
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 |