diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-13 15:40:38 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-13 15:40:38 -0400 |
| commit | d6bf4460d8b7ff91ba553958240054ca8a2a91d6 (patch) | |
| tree | bc23043851e98c771a3b451456a0103332b20444 /Logs/Schedule.hs | |
| parent | f0cf034faa674921dae63d7a54270861bbe86e29 (diff) | |
add schedule command
Mostly because it gives me an excuse and a hook to document the schedule
expression format.
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 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 |