av/haskell-cron-matcher
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove individual constraints

Browse Source
This commit is contained in:
Anton Vakhrushev 2017-11-18 10:07:06 +03:00
parent 06661e173e
commit 224af7a801
1 changed files with 6 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/Pattern.hs
View File

@ -48,32 +48,14 @@ checkFields xs
| any isNothing xs = False
| otherwise = True
constrainMinute :: Constraint
constrainMinute = Constraint 0 59
constrainHour :: Constraint
constrainHour = Constraint 0 23
constrainDay :: Constraint
constrainDay = Constraint 1 31
constrainMonth :: Constraint
constrainMonth = Constraint 1 12
constrainWeek :: Constraint
constrainWeek = Constraint 1 7
constrainYear :: Constraint
constrainYear = Constraint 0 9999
constraints :: [Constraint]
constraints =
[ constrainMinute
, constrainHour
, constrainDay
, constrainMonth
, constrainWeek
, constrainYear
[ Constraint 0 59
, Constraint 0 23
, Constraint 1 31
, Constraint 1 12
, Constraint 1 7
, Constraint 0 9999
]
check :: Pattern -> DateTime -> Bool