From ab6300eede7984a8b80dc48cc741cb99eebc7731 Mon Sep 17 00:00:00 2001
From: Anton Vakhrushev <anwinged@ya.ru>
Date: Sat, 9 Mar 2019 22:36:36 +0300
Subject: [PATCH] Improve code style

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

diff --git a/src/Pattern.hs b/src/Pattern.hs
index 2711021..8f93b01 100644
--- a/src/Pattern.hs
+++ b/src/Pattern.hs
@@ -33,12 +33,12 @@ parse text
     isValid = checkFields fields
     createPattern xs =
       Pattern
-      { cminute = head xs
-      , chour = xs !! 1
-      , cday = xs !! 2
-      , cmonth = xs !! 3
-      , cweek = xs !! 4
-      }
+        { cminute = head xs
+        , chour = xs !! 1
+        , cday = xs !! 2
+        , cmonth = xs !! 3
+        , cweek = xs !! 4
+        }
 
 checkFields :: [Maybe Field] -> Bool
 checkFields xs