2020 day4/haskell: fix typo

This commit is contained in:
Xiretza 2020-12-04 16:14:16 +01:00
parent b923627c26
commit a3c6a1d70c

View file

@ -32,7 +32,7 @@ fieldSpecs = [ ("byr", BirthYear <$> parseYearIn 1920 2002)
Centimeter -> guard $ within 150 193 h
return $ Height h u)
, ("hcl", char '#' >> HairColour <$> count 6 parseHexDigit)
, ("ecl", EyeColour <$> parseCoulourSpec)
, ("ecl", EyeColour <$> parseColourSpec)
, ("pid", PassportID <$> count 9 (satisfy $ const True))
, ("cid", CountryID <$> munch1 (/= ' '))
]
@ -56,8 +56,8 @@ parseHeightUnit = choice [ string "cm" >> return Centimeter
, string "in" >> return Inch
]
parseCoulourSpec :: ReadP ColourSpec
parseCoulourSpec = choice [ string "amb" >> return Amber
parseColourSpec :: ReadP ColourSpec
parseColourSpec = choice [ string "amb" >> return Amber
, string "blu" >> return Blue
, string "brn" >> return Brown
, string "gry" >> return Gray