diff options
author | Joey Hess <joey@kitenet.net> | 2012-04-21 16:59:49 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-04-21 19:36:03 -0400 |
commit | b98b69e8c6d9b873a864b79cff857882f67ee576 (patch) | |
tree | 4ae145f9fe34c5e71424ab3d12dca6ab8070ce41 /Annex/Ssh.hs | |
parent | 7e45712d194aa2b231083c3ccee3668f053e5717 (diff) |
honor core.sharedRepository when making all the other files in the annex
Lock files, directories, etc.
Diffstat (limited to 'Annex/Ssh.hs')
-rw-r--r-- | Annex/Ssh.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Annex/Ssh.hs b/Annex/Ssh.hs index e6cd6a926..c9e6e2951 100644 --- a/Annex/Ssh.hs +++ b/Annex/Ssh.hs @@ -17,6 +17,7 @@ import Annex.LockPool import qualified Git import Config import qualified Build.SysConfig as SysConfig +import Annex.Perms {- Generates parameters to ssh to a given host (or user@host) on a given - port, with connection caching. -} @@ -74,7 +75,9 @@ sshCleanup = do -- be stopped. let lockfile = socket2lock socketfile unlockFile lockfile - fd <- liftIO $ openFd lockfile ReadWrite (Just stdFileMode) defaultFileFlags + mode <- annexFileMode + fd <- liftIO $ noUmask mode $ + openFd lockfile ReadWrite (Just mode) defaultFileFlags v <- liftIO $ tryIO $ setLock fd (WriteLock, AbsoluteSeek, 0, 0) case v of |