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

write via temp file

Browse source
This commit is contained in:
Joey Hess 2013-10-14 16:15:38 -04:00
parent 3989ad91e6
commit 92d5452a19
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Logs/Schedule.hs
View file

@ -27,6 +27,7 @@ import Types.ScheduledActivity
import qualified Annex.Branch import qualified Annex.Branch
import Logs import Logs
import Logs.UUIDBased import Logs.UUIDBased
import Utility.Tmp
scheduleSet :: UUID -> [ScheduledActivity] -> Annex () scheduleSet :: UUID -> [ScheduledActivity] -> Annex ()
scheduleSet uuid@(UUID _) activities = do scheduleSet uuid@(UUID _) activities = do
@ -67,5 +68,5 @@ getLastRunTimes = do
setLastRunTime :: ScheduledActivity -> LocalTime -> Annex () setLastRunTime :: ScheduledActivity -> LocalTime -> Annex ()
setLastRunTime activity lastrun = do setLastRunTime activity lastrun = do
f <- fromRepo gitAnnexScheduleState f <- fromRepo gitAnnexScheduleState
liftIO . writeFile f . show . M.insert activity lastrun liftIO . viaTmp writeFile f . show . M.insert activity lastrun
=<< getLastRunTimes =<< getLastRunTimes