进口管制。 同时发生的 进口管制。 莫纳德 导入数据。 时间。 时钟 导入系统。 克罗恩 主::IO() main=永远$do 现在<-getCurrentTime 何时(scheduleMatches schedule now)doWork putStrLn“睡眠” 线程延迟100000 其中doWork=putStrLn“工作时间” schedule=每小时
数据 克朗时间表 = CronSchedule公司 { } 新类型 定时任务 = 定时任务 [ Crontab条目 ] 数据 Crontab条目 数据 分钟规格 = 会议记录 克罗恩菲尔德 数据 小时规格 = 小时 克罗恩菲尔德 数据 月份规格 = 月 克朗菲尔德 数据 月份规范中的日期 = 每月的天数 克罗恩菲尔德 数据 DayOfWeekSpec(星期规范) = 星期几(DaysOfWeek) 克罗恩菲尔德 数据 克罗恩菲尔德 每年的 :: CronSchedule公司 月刊 :: CronSchedule公司 每日的 :: CronSchedule公司 每周的 :: CronSchedule公司 每小时 :: CronSchedule公司 每一分钟 :: CronSchedule公司 时间表匹配 :: CronSchedule公司 -> UTC时间 -> 布尔