mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix typo in name of authorized_keys file when canceling adding a key

Browse source
This commit is contained in:
Joey Hess 2013-01-03 16:11:19 -04:00
parent b9bbc11f0f
commit 4c0fb330eb
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Assistant/Ssh.hs
View file

@ -124,7 +124,7 @@ removeAuthorizedKeys :: Bool -> FilePath -> SshPubKey -> IO ()
removeAuthorizedKeys rsynconly dir pubkey = do removeAuthorizedKeys rsynconly dir pubkey = do
let keyline = authorizedKeysLine rsynconly dir pubkey let keyline = authorizedKeysLine rsynconly dir pubkey
sshdir <- sshDir sshdir <- sshDir
let keyfile = sshdir </> ".authorized_keys" let keyfile = sshdir </> "authorized_keys"
ls <- lines <$> readFileStrict keyfile ls <- lines <$> readFileStrict keyfile
writeFile keyfile $ unlines $ filter (/= keyline) ls writeFile keyfile $ unlines $ filter (/= keyline) ls