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

rename module

Browse source
This commit is contained in:
Joey Hess 2013-05-12 19:19:28 -04:00
parent 92910f5107
commit 25a8d4b11c
14 changed files with 28 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/Ssh.hs
View file

@ -8,7 +8,7 @@
module Assistant.Ssh where
import Common.Annex
import Utility.TempFile
import Utility.Tmp
import Utility.UserInfo
import Utility.Shell
import Git.Remote
@ -146,7 +146,7 @@ authorizedKeysLine rsynconly dir pubkey
{- Generates a ssh key pair. -}
genSshKeyPair :: IO SshKeyPair
genSshKeyPair = withTempDir "git-annex-keygen" $ \dir -> do
genSshKeyPair = withTmpDir "git-annex-keygen" $ \dir -> do
ok <- boolSystem "ssh-keygen"
[ Param "-P", Param "" -- no password
, Param "-f", File $ dir </> "key"