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 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 |