mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

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

Browse source 
This commit was sponsored by an anonymous bitcoin donor.
This commit is contained in:
Joey Hess 2018-01-02 16:25:27 -04:00
parent 75366d3c34
commit edd25f04d9
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Logs/Unused.hs
View file

@ -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