diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-01-03 16:11:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-01-03 16:11:19 -0400 |
| commit | a10bccd0a0ed609f7a590060307cf5d2f21a1cbd (patch) | |
| tree | 89f35e6bc526a52caeb4af90010d073b71312167 /Assistant/Ssh.hs | |
| parent | d8ea698bcaffdd4b3c50f319045a2530c56f090d (diff) | |
fix typo in name of authorized_keys file when canceling adding a key
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 c60ead1ef..15c97ab53 100644 --- a/Assistant/Ssh.hs +++ b/Assistant/Ssh.hs @@ -124,7 +124,7 @@ removeAuthorizedKeys :: Bool -> FilePath -> SshPubKey -> IO () removeAuthorizedKeys rsynconly dir pubkey = do let keyline = authorizedKeysLine rsynconly dir pubkey sshdir <- sshDir - let keyfile = sshdir </> ".authorized_keys" + let keyfile = sshdir </> "authorized_keys" ls <- lines <$> readFileStrict keyfile writeFile keyfile $ unlines $ filter (/= keyline) ls |