Reformat code

src/Constraint.hs

@@ -4,10 +4,12 @@ module Constraint
   , inside
   ) where
 
-data Constraint = Constraint
+data Constraint =
-  { lower :: Int
+  Constraint
-  , upper :: Int
+    { lower :: Int
-  } deriving (Show, Eq)
+    , upper :: Int
+    }
+  deriving (Show, Eq)
 
 inside :: (Int, Int) -> Constraint -> Bool
 inside (x, y) (Constraint lw up) = x >= lw && y <= up

src/Field.hs

@@ -8,9 +8,7 @@ import           Data.Maybe
 import           Helper
 
 data Field
-  = Range Int
+  = Range Int Int Int
-          Int
-          Int
   | Sequence [Int]
   deriving (Eq, Show)
 

src/Pattern.hs

@@ -10,13 +10,15 @@ import           Data.Dates
 import           Data.Maybe
 import           Field
 
-data Pattern = Pattern
+data Pattern =
-  { cminute :: Field
+  Pattern
-  , chour   :: Field
+    { cminute :: Field
-  , cday    :: Field
+    , chour   :: Field
-  , cmonth  :: Field
+    , cday    :: Field
-  , cweek   :: Field
+    , cmonth  :: Field
-  } deriving (Show)
+    , cweek   :: Field
+    }
+  deriving (Show)
 
 match :: String -> DateTime -> Maybe Bool
 match s d =