From b71eda5fd5ba8e0317d4f4e3f35661fac3adfc1e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 14 Oct 2013 16:15:38 -0400 Subject: write via temp file --- Logs/Schedule.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Logs') diff --git a/Logs/Schedule.hs b/Logs/Schedule.hs index 56fb3399e..1d78467bb 100644 --- a/Logs/Schedule.hs +++ b/Logs/Schedule.hs @@ -27,6 +27,7 @@ import Types.ScheduledActivity import qualified Annex.Branch import Logs import Logs.UUIDBased +import Utility.Tmp scheduleSet :: UUID -> [ScheduledActivity] -> Annex () scheduleSet uuid@(UUID _) activities = do @@ -67,5 +68,5 @@ getLastRunTimes = do setLastRunTime :: ScheduledActivity -> LocalTime -> Annex () setLastRunTime activity lastrun = do f <- fromRepo gitAnnexScheduleState - liftIO . writeFile f . show . M.insert activity lastrun + liftIO . viaTmp writeFile f . show . M.insert activity lastrun =<< getLastRunTimes -- cgit v1.2.3