diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-12-06 10:39:51 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-12-06 10:39:51 -0400 |
| commit | 2126a02570bb00eb96e0ed1738898cf6b1024887 (patch) | |
| tree | 75b8db26d2579df648529fea591710272c0d571e /Assistant/Ssh.hs | |
| parent | 3540e34025049ed4420810f21cdad6a5adc851c5 (diff) | |
assistant: Allow periods in ssh key comments.
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 |