unused: Write .git/annex/unused etc files with appropriate permissions for the core.sharedRepository config.
This commit was sponsored by an anonymous bitcoin donor.
This commit is contained in:
parent
75366d3c34
commit
edd25f04d9
4 changed files with 18 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue