From a3c6a1d70ce923364adfda260985ece182fcd33f Mon Sep 17 00:00:00 2001
From: Xiretza <xiretza@xiretza.xyz>
Date: Fri, 4 Dec 2020 16:14:16 +0100
Subject: [PATCH] 2020 day4/haskell: fix typo

---
 2020/day4/day4.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/2020/day4/day4.hs b/2020/day4/day4.hs
index b150847..558beda 100644
--- a/2020/day4/day4.hs
+++ b/2020/day4/day4.hs
@@ -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