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