cronner: run jobs triggered by remotes becoming connected (untested)

This commit is contained in:
Joey Hess 2013-10-13 17:14:56 -04:00
parent 57d369c5a8
commit 25462f125d
4 changed files with 94 additions and 31 deletions

View file

@ -19,6 +19,12 @@ data ScheduledActivity
| ScheduledRemoteFsck UUID Schedule Duration
deriving (Eq, Read, Show, Ord)
{- Activities that run on a remote, within a time window, so
- should be run when the remote gets connected. -}
connectActivityUUID :: ScheduledActivity -> Maybe UUID
connectActivityUUID (ScheduledRemoteFsck u (Schedule _ AnyTime) _) = Just u
connectActivityUUID _ = Nothing
getSchedule :: ScheduledActivity -> Schedule
getSchedule (ScheduledSelfFsck s _) = s
getSchedule (ScheduledRemoteFsck _ s _) = s