diff --git a/4.hs b/4.hs
index 80216ce..afa81f6 100644
--- a/4.hs
+++ b/4.hs
@@ -19,7 +19,7 @@ nDigits :: Int -> String -> Maybe String
 nDigits n s = guard (length s == n && all isDigit s) $> s
 
 hexColor :: String -> Maybe String
-hexColor s = guard (length s == 7 && s !! 0 == '#' && all (\c -> elem c "0123456789abcdef") (drop 1 s)) $> s
+hexColor s = guard (length s == 7 && s !! 0 == '#' && all (flip elem "0123456789abcdef") (drop 1 s)) $> s
 
 validEcl :: String -> Bool
 validEcl = flip elem ["amb", "blu", "brn", "gry", "grn", "hzl", "oth"]