diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2018-01-02 17:17:10 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2018-01-02 17:25:25 -0400 |
| commit | ed2c1839fd8e0616165de569cff939dc3bf6527d (patch) | |
| tree | 7dd4eed72c8a32ccd53f8bb75620e205eba514a5 /Logs/Schedule.hs | |
| parent | 2c16edc58f1f549cd4e5611c0f7c45fec6b66da0 (diff) | |
Fix several places where files in .git/annex/ were written with modes that did not take the core.sharedRepository config into account.
git grep writeFile finds some more that might also be problems, but
for now I've concentrated on .git/annex/ log files. There are certianly
cases where writeFile is not a problem too.
This commit was sponsored by mo on Patreon.
Diffstat (limited to 'Logs/Schedule.hs')
| -rw-r--r-- | Logs/Schedule.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Logs/Schedule.hs b/Logs/Schedule.hs index aea0df223..1868e3460 100644 --- a/Logs/Schedule.hs +++ b/Logs/Schedule.hs @@ -26,7 +26,7 @@ import Types.ScheduledActivity import qualified Annex.Branch import Logs import Logs.UUIDBased -import Utility.Tmp +import Logs.File scheduleSet :: UUID -> [ScheduledActivity] -> Annex () scheduleSet uuid@(UUID _) activities = do @@ -67,5 +67,5 @@ getLastRunTimes = do setLastRunTime :: ScheduledActivity -> LocalTime -> Annex () setLastRunTime activity lastrun = do f <- fromRepo gitAnnexScheduleState - liftIO . viaTmp writeFile f . show . M.insert activity lastrun + writeLogFile f . show . M.insert activity lastrun =<< getLastRunTimes |