github/shellcheck
1
0
Fork 0
mirror of https://github.com/koalaman/shellcheck synced 2025-07-16 10:03:08 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

Simplify isUnquotedFlag

Browse source
This commit is contained in:
Joseph C. Sible 2024-01-01 16:00:19 -05:00
parent 5a6f4840ad
commit 025cc5266e
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/ShellCheck/ASTLib.hs
View file

@ -158,9 +158,10 @@ isFlag token =
_ -> False _ -> False
-- Is this token a flag where the - is unquoted? -- Is this token a flag where the - is unquoted?
isUnquotedFlag token = fromMaybe False $ do isUnquotedFlag token =
str <- getLeadingUnquotedString token case getLeadingUnquotedString token of
return $ "-" `isPrefixOf` str Just ('-':_) -> True
_ -> False
-- getGnuOpts "erd:u:" will parse a list of arguments tokens like `read` -- getGnuOpts "erd:u:" will parse a list of arguments tokens like `read`
-- -re -d : -u 3 bar -- -re -d : -u 3 bar