diff options
Diffstat (limited to 'Assistant')
| -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 1d1f99176..0d3ebcfac 100644 --- a/Assistant/Ssh.hs +++ b/Assistant/Ssh.hs @@ -114,7 +114,7 @@ validateSshPubKey pubkey = either error return $ check $ words pubkey (ssh, keytype) = separate (== '-') prefix checkcomment comment - | all (\c -> isAlphaNum c || c == '@') comment = ok + | all (\c -> isAlphaNum c || c == '@' || c == '-' || c == '_') comment = ok | otherwise = err "bad comment in ssh public key" addAuthorizedKeys :: Bool -> SshPubKey -> IO Bool |