Reformat code

src/Constraint.hs

@@ -4,10 +4,12 @@ module Constraint
   , inside
   ) where
 
-data Constraint = Constraint
+data Constraint =
+  Constraint
     { lower :: Int
     , upper :: Int
-  } deriving (Show, Eq)
+    }
+  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 =
+  Pattern
     { cminute :: Field
     , chour   :: Field
     , cday    :: Field
     , cmonth  :: Field
     , cweek   :: Field
-  } deriving (Show)
+    }
+  deriving (Show)
 
 match :: String -> DateTime -> Maybe Bool
 match s d =