diff options
author | Joey Hess <joey@kitenet.net> | 2013-10-14 16:15:38 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-10-14 16:15:38 -0400 |
commit | b71eda5fd5ba8e0317d4f4e3f35661fac3adfc1e (patch) | |
tree | cf63debff53e6b5f242791179ce15224091ea653 /Logs | |
parent | fff7e214e30a1b273f3d11bce4ec22ee0d19bfd5 (diff) |
write via temp file
Diffstat (limited to 'Logs')
-rw-r--r-- | Logs/Schedule.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |