Simplify isUnquotedFlag

koalaman · Jan 1, 2024 · 025cc52 · 025cc52
1 parent 5a6f484
commit 025cc52
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/ShellCheck/ASTLib.hs b/src/ShellCheck/ASTLib.hs
@@ -158,9 +158,10 @@ isFlag token =
         _ -> False
 
 -- Is this token a flag where the - is unquoted?
-isUnquotedFlag token = fromMaybe False $ do
-    str <- getLeadingUnquotedString token
-    return $ "-" `isPrefixOf` str
+isUnquotedFlag token =
+    case getLeadingUnquotedString token of
+        Just ('-':_) -> True
+        _ -> False
 
 -- getGnuOpts "erd:u:" will parse a list of arguments tokens like `read`
 --     -re -d : -u 3 bar