Simplify getAssociativeArrays

samliddicott · Apr 5, 2020 · b6cff5e · b6cff5e
1 parent 8f10507
commit b6cff5e
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/ShellCheck/ASTLib.hs b/src/ShellCheck/ASTLib.hs
@@ -398,10 +398,10 @@ getAssociativeArrays t =
     f t@T_SimpleCommand {} = sequence_ $ do
         name <- getCommandName t
         let assocNames = ["declare","local","typeset"]
-        guard $ elem name assocNames
+        guard $ name `elem` assocNames
         let flags = getAllFlags t
-        guard $ elem "A" $ map snd flags
-        let args = map fst . filter ((==) "" . snd) $ flags
+        guard $ "A" `elem` map snd flags
+        let args = [arg | (arg, "") <- flags]
         let names = mapMaybe (getLiteralStringExt nameAssignments) args
         return $ tell names
     f _ = return ()