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