From dab77b2c8d978534603000e5406e604a79e1b195 Mon Sep 17 00:00:00 2001
From: "Joseph C. Sible" <josephcsible@users.noreply.github.com>
Date: Thu, 21 Dec 2023 13:48:47 -0500
Subject: [PATCH] Implement parseEnum in terms of lookup

---
 shellcheck.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/shellcheck.hs b/shellcheck.hs
index 6f12238..00b699b 100644
--- a/shellcheck.hs
+++ b/shellcheck.hs
@@ -252,9 +252,9 @@ runFormatter sys format options files = do
                 else SomeProblems
 
 parseEnum name value list =
-    case filter ((== value) . fst) list of
-        [(name, value)] -> return value
-        [] -> do
+    case lookup value list of
+        Just value -> return value
+        Nothing -> do
             printErr $ "Unknown value for --" ++ name ++ ". " ++
                        "Valid options are: " ++ (intercalate ", " $ map fst list)
             throwError SupportFailure