Simplify getStringFromParsec

2025-08-08 15:27:02 +08:00 · 2023-12-31 16:33:34 -05:00
parent 6c81505870
commit 3f40b688ee
1 changed files with 2 additions and 3 deletions
--- a/src/ShellCheck/Parser.hs
+++ b/src/ShellCheck/Parser.hs
@@ -3456,9 +3456,8 @@ makeErrorFor parsecError =
      pos = errorPos parsecError

 getStringFromParsec errors =
-        case map f errors of
-            r -> unwords (take 1 $ catMaybes $ reverse r)  ++
-                " Fix any mentioned problems and try again."
+        headOrDefault "" (mapMaybe f $ reverse errors)  ++
+            " Fix any mentioned problems and try again."
    where
        f err =
            case err of