7x31
/
shellcheck
mirror of https://github.com/koalaman/shellcheck.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Simplify getAssociativeArrays

This commit is contained in:
Joseph C. Sible 2020-04-05 19:06:16 -04:00
parent 8f105074fe
commit b6cff5ea0e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ShellCheck/ASTLib.hs
View File

@ -398,10 +398,10 @@ getAssociativeArrays t =
f t@T_SimpleCommand {} = sequence_ $ do f t@T_SimpleCommand {} = sequence_ $ do
name <- getCommandName t name <- getCommandName t
let assocNames = ["declare","local","typeset"] let assocNames = ["declare","local","typeset"]
guard $ elem name assocNames guard $ name `elem` assocNames
let flags = getAllFlags t let flags = getAllFlags t
guard $ elem "A" $ map snd flags guard $ "A" `elem` map snd flags
let args = map fst . filter ((==) "" . snd) $ flags let args = [arg | (arg, "") <- flags]
let names = mapMaybe (getLiteralStringExt nameAssignments) args let names = mapMaybe (getLiteralStringExt nameAssignments) args
return $ tell names return $ tell names
f _ = return () f _ = return ()