diff options
author | Joey Hess <joey@kitenet.net> | 2013-11-18 18:20:20 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-11-18 18:20:20 -0400 |
commit | f329c56f5e356bfaaf04d0587058824713d9b1c9 (patch) | |
tree | a2e099715eddf9120b388ce5de36c5db814181b5 /Init.hs | |
parent | 891868cf0185b8a1b81a8a39cd88ce2e00cdc338 (diff) |
Ensure that core.sharedrepository is honored when creating the .git/annex directory.
Diffstat (limited to 'Init.hs')
-rw-r--r-- | Init.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -29,6 +29,7 @@ import Config import Annex.Direct import Annex.Content.Direct import Annex.Environment +import Annex.Perms import Backend #ifndef mingw32_HOST_OS import Utility.UserInfo @@ -111,9 +112,8 @@ probeCrippledFileSystem = do #else tmp <- fromRepo gitAnnexTmpDir let f = tmp </> "gaprobe" - liftIO $ do - createDirectoryIfMissing True tmp - writeFile f "" + createAnnexDirectory tmp + liftIO $ writeFile f "" uncrippled <- liftIO $ probe f liftIO $ removeFile f return $ not uncrippled @@ -149,8 +149,8 @@ probeFifoSupport = do #else tmp <- fromRepo gitAnnexTmpDir let f = tmp </> "gaprobe" + createAnnexDirectory tmp liftIO $ do - createDirectoryIfMissing True tmp nukeFile f ms <- tryIO $ do createNamedPipe f ownerReadMode |