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 | any isNothing xs = False
| otherwise = True | 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 :: [Constraint]
constraints = constraints =
[ constrainMinute [ Constraint 0 59
, constrainHour , Constraint 0 23
, constrainDay , Constraint 1 31
, constrainMonth , Constraint 1 12
, constrainWeek , Constraint 1 7
, constrainYear , Constraint 0 9999
] ]
check :: Pattern -> DateTime -> Bool check :: Pattern -> DateTime -> Bool