github/shellcheck
1
0
Fork 0
mirror of https://github.com/koalaman/shellcheck synced 2025-07-11 07:36:29 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

Simplify matchToken

Browse source
This commit is contained in:
Joseph C. Sible 2020-02-09 20:36:14 -05:00
parent 0e00249eae
commit 057cc714b3
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/ShellCheck/Analytics.hs
View file

@ -1220,10 +1220,7 @@ checkLiteralBreakingTest _ t = sequence_ $
where where
hasEquals = matchToken ('=' `elem`) hasEquals = matchToken ('=' `elem`)
isNonEmpty = matchToken (not . null) isNonEmpty = matchToken (not . null)
matchToken m t = isJust $ do matchToken m t = maybe False m (getLiteralString t)
str <- getLiteralString t
guard $ m str
return ()
comparisonWarning list = do comparisonWarning list = do
token <- find hasEquals list token <- find hasEquals list