From 2e6e06310dfa703c96f0ae60b646c3b29302ea0d Mon Sep 17 00:00:00 2001
From: Anton Vakhrushev <anwinged@ya.ru>
Date: Sat, 20 Jun 2020 12:40:10 +0300
Subject: [PATCH] Reformat code

---
 src/Constraint.hs | 10 ++++++----
 src/Field.hs      |  4 +---
 src/Pattern.hs    | 16 +++++++++-------
 3 files changed, 16 insertions(+), 14 deletions(-)

diff --git a/src/Constraint.hs b/src/Constraint.hs
index 48d0946..099fa77 100644
--- a/src/Constraint.hs
+++ b/src/Constraint.hs
@@ -4,10 +4,12 @@ module Constraint
   , inside
   ) where
 
-data Constraint = Constraint
-  { lower :: Int
-  , upper :: Int
-  } deriving (Show, Eq)
+data Constraint =
+  Constraint
+    { lower :: Int
+    , upper :: Int
+    }
+  deriving (Show, Eq)
 
 inside :: (Int, Int) -> Constraint -> Bool
 inside (x, y) (Constraint lw up) = x >= lw && y <= up
diff --git a/src/Field.hs b/src/Field.hs
index 889cd25..c895ee9 100644
--- a/src/Field.hs
+++ b/src/Field.hs
@@ -8,9 +8,7 @@ import           Data.Maybe
 import           Helper
 
 data Field
-  = Range Int
-          Int
-          Int
+  = Range Int Int Int
   | Sequence [Int]
   deriving (Eq, Show)
 
diff --git a/src/Pattern.hs b/src/Pattern.hs
index 8f93b01..e6f3416 100644
--- a/src/Pattern.hs
+++ b/src/Pattern.hs
@@ -10,13 +10,15 @@ import           Data.Dates
 import           Data.Maybe
 import           Field
 
-data Pattern = Pattern
-  { cminute :: Field
-  , chour   :: Field
-  , cday    :: Field
-  , cmonth  :: Field
-  , cweek   :: Field
-  } deriving (Show)
+data Pattern =
+  Pattern
+    { cminute :: Field
+    , chour   :: Field
+    , cday    :: Field
+    , cmonth  :: Field
+    , cweek   :: Field
+    }
+  deriving (Show)
 
 match :: String -> DateTime -> Maybe Bool
 match s d =