xiretza/advent-of-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

day4/haskell: fix typo

Browse source
This commit is contained in:
Xiretza 2020-12-04 16:14:16 +01:00
parent 23e5f473c0
commit 9331250c28
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
2020/day4/day4.hs
View file

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