diff options
Diffstat (limited to 'Logs')
| -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 35745b9f3..56fb3399e 100644 --- a/Logs/Schedule.hs +++ b/Logs/Schedule.hs @@ -34,7 +34,7 @@ scheduleSet uuid@(UUID _) activities = do Annex.Branch.change scheduleLog $ showLog id . changeLog ts uuid val . parseLog Just where - val = intercalate "; " $ map fromScheduledActivity activities + val = fromScheduledActivities activities scheduleSet NoUUID _ = error "unknown UUID; cannot modify" scheduleMap :: Annex (M.Map UUID [ScheduledActivity]) @@ -42,7 +42,7 @@ scheduleMap = simpleMap . parseLogWithUUID parser <$> Annex.Branch.get scheduleLog where - parser _uuid = Just . mapMaybe toScheduledActivity . split "; " + parser _uuid = eitherToMaybe . parseScheduledActivities scheduleGet :: UUID -> Annex (S.Set ScheduledActivity) scheduleGet u = do |