Implement parseEnum in terms of lookup

koalaman · Dec 21, 2023 · dab77b2 · dab77b2
1 parent f983d9a
commit dab77b2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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