From b20b246a88bc6e2be15c02fa05c3dd90813e3667 Mon Sep 17 00:00:00 2001
From: Michael Zhang <mail@mzhang.io>
Date: Fri, 4 Dec 2020 19:04:32 -0600
Subject: [PATCH] joamoiwamepfuewaf

---
 4.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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"]