From 224af7a80138d519a49c1a00d8c3acfada03e6d5 Mon Sep 17 00:00:00 2001
From: Anton Vakhrushev <anwinged@ya.ru>
Date: Sat, 18 Nov 2017 10:07:06 +0300
Subject: [PATCH] Remove individual constraints

---
 src/Pattern.hs | 30 ++++++------------------------
 1 file changed, 6 insertions(+), 24 deletions(-)

diff --git a/src/Pattern.hs b/src/Pattern.hs
index 3ac8f1b..7c3dc6d 100644
--- a/src/Pattern.hs
+++ b/src/Pattern.hs
@@ -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