diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-11-12 18:05:45 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-11-12 18:13:37 -0400 |
| commit | 6b074fb7e741020b81d696bd66e62f75fd472966 (patch) | |
| tree | 284ac39d6ce641c255555e504c89a9f4d9956744 /Annex/Ssh.hs | |
| parent | 549f635c6b64006b5a369795805d08b8f439d54c (diff) | |
convert from Utility.LockPool to Annex.LockPool everywhere
Diffstat (limited to 'Annex/Ssh.hs')
| -rw-r--r-- | Annex/Ssh.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/Ssh.hs b/Annex/Ssh.hs index 9d716cdc8..c9325bb7d 100644 --- a/Annex/Ssh.hs +++ b/Annex/Ssh.hs @@ -37,7 +37,7 @@ import Types.CleanupActions import Annex.Index (addGitEnv) #ifndef mingw32_HOST_OS import Annex.Perms -import Utility.LockPool +import Annex.LockPool #endif {- Generates parameters to ssh to a given host (or user@host) on a given @@ -159,7 +159,7 @@ sshCleanup = mapM_ cleanup =<< enumSocketFiles let lockfile = socket2lock socketfile unlockFile lockfile mode <- annexFileMode - v <- liftIO $ noUmask mode $ tryLockExclusive (Just mode) lockfile + v <- noUmask mode $ tryLockExclusive (Just mode) lockfile case v of Nothing -> noop Just lck -> do |