Improve code style

2019-03-09 22:36:36 +03:00 · 2019-03-09 22:36:36 +03:00 · ab6300eede
commit ab6300eede
parent c96cc544e4
1 changed files with 6 additions and 6 deletions
--- 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