format *

1 files changed, 9 insertions, 9 deletions

diff --git a/execs/Day04.hs b/execs/Day04.hs
index a95dfd0..1834250 100644
--- a/execs/Day04.hs
+++ b/execs/Day04.hs
@@ -1,12 +1,12 @@
 module Main where
 
-import Text.ParserCombinators.Parsec
-import Data.Map.Strict (Map, (!))
-import qualified Data.Map.Strict as Map
-import Data.Char (isDigit, isHexDigit)
-import Utils
+import           Data.Char                     (isDigit, isHexDigit)
+import           Data.Map.Strict               (Map, (!))
+import qualified Data.Map.Strict               as Map
+import           Text.ParserCombinators.Parsec
+import           Utils
 
-requiredFields = [ "byr" , "iyr" , "eyr" , "hgt" , "hcl" , "ecl" , "pid" ] 
+requiredFields = [ "byr" , "iyr" , "eyr" , "hgt" , "hcl" , "ecl" , "pid" ]
 eyeColors = ["amb", "blu", "brn", "gry", "grn", "hzl", "oth"]
 
 block = cell `sepBy` oneOf " \n"
@@ -28,15 +28,15 @@ validEyr s = bet (read s :: Int) (2020, 2030)
 validEcl = flip elem eyeColors
 validPid s = length s == 9 && all isDigit s
 validHcl ('#':rest) = length rest == 6 && all isHexDigit rest
-validHcl _ = False
-validHgt s = 
+validHcl _          = False
+validHgt s =
     let value = takeWhile isDigit s
         unit = dropWhile isDigit s
         height = (read value :: Int, unit)
      in case height of
           (v, "cm") -> bet v (150, 193)
           (v, "in") -> bet v (59, 76)
-          _ -> False
+          _         -> False
 
 doValidate :: Map String String -> Bool
 doValidate map = all ((== True) . (\(s, v) -> v $ map ! s))  ls