unused: Write .git/annex/unused etc files with appropriate permissions for the core.sharedRepository config.

This commit was sponsored by an anonymous bitcoin donor.

1 files changed, 5 insertions, 1 deletions

diff --git a/Logs/Unused.hs b/Logs/Unused.hs
index a2f40410b..076245591 100644
--- a/Logs/Unused.hs
+++ b/Logs/Unused.hs
@@ -33,6 +33,7 @@ import Data.Time
 
 import Annex.Common
 import qualified Annex
+import Annex.Perms
 import Utility.Tmp
 import Logs.TimeStamp
 
@@ -64,10 +65,13 @@ updateUnusedLog prefix m = do
 writeUnusedLog :: FilePath -> UnusedLog -> Annex ()
 writeUnusedLog prefix l = do
 	logfile <- fromRepo $ gitAnnexUnusedLog prefix
-	liftIO $ viaTmp writeFile logfile $ unlines $ map format $ M.toList l
+	viaTmp writelog logfile $ unlines $ map format $ M.toList l
   where
 	format (k, (i, Just t)) = show i ++ " " ++ key2file k ++ " " ++ show t
 	format (k, (i, Nothing)) = show i ++ " " ++ key2file k
+	writelog f c = do
+		liftIO $ writeFile f c
+		setAnnexFilePerm f
 
 readUnusedLog :: FilePath -> Annex UnusedLog
 readUnusedLog prefix = do