System.Cron.Schedule

main :: IO ()
main = do
       ...
       tids <- execSchedule $ do
           addJob job1 "* * * * *"
           addJob job2 "0 * * * *"
       print tids
       ...

job1 :: IO ()
job1 = putStrLn "Job 1"

job2 :: IO ()
job2 = putStrLn "Job 2"

Documentation

data Job

Constructors

Job CronSchedule (IO ())

Instances

Show Job

data ScheduleError

Constructors

ParseError String

Instances

Show ScheduleError

Monad m => MonadError ScheduleError (ScheduleT m)

type Schedule = ScheduleT Identity

newtype ScheduleT m a

Constructors

ScheduleT

Fields

unSchedule :: StateT Jobs (ExceptT ScheduleError m) a

Instances

Monad m => MonadError ScheduleError (ScheduleT m)

Monad m => Monad (ScheduleT m)

Functor m => Functor (ScheduleT m)

(Monad m, Functor m) => Applicative (ScheduleT m)

Monad m => MonadSchedule (ScheduleT m)

class MonadSchedule m where

Methods

addJob :: IO () -> String -> m ()

Instances

Monad m => MonadSchedule (ScheduleT m)

runSchedule :: Schedule a -> Either ScheduleError (a, [Job])

runScheduleT :: ScheduleT m a -> m (Either ScheduleError (a, [Job]))

execSchedule :: Schedule () -> IO [ThreadId]