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

Use gets instead of fmapping the result of get

This commit is contained in:
Joseph C. Sible 2020-02-01 22:50:20 -05:00
parent d7278b95f2
commit f25b8bd03a
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ShellCheck/Analytics.hs
View File

@ -1961,7 +1961,7 @@ prop_checkQuotesInLiterals9 = verifyNotTree checkQuotesInLiterals "param=\"/foo/
checkQuotesInLiterals params t = checkQuotesInLiterals params t =
doVariableFlowAnalysis readF writeF Map.empty (variableFlow params) doVariableFlowAnalysis readF writeF Map.empty (variableFlow params)
where where
getQuotes name = fmap (Map.lookup name) get getQuotes name = gets (Map.lookup name)
setQuotes name ref = modify $ Map.insert name ref setQuotes name ref = modify $ Map.insert name ref
deleteQuotes = modify . Map.delete deleteQuotes = modify . Map.delete
parents = parentMap params parents = parentMap params

2
src/ShellCheck/Parser.hs
View File

@ -325,7 +325,7 @@ parseProblem level code msg = do
parseProblemAt pos level code msg parseProblemAt pos level code msg
setCurrentContexts c = Ms.modify (\state -> state { contextStack = c }) setCurrentContexts c = Ms.modify (\state -> state { contextStack = c })
getCurrentContexts = contextStack <$> Ms.get getCurrentContexts = Ms.gets contextStack
popContext = do popContext = do
v <- getCurrentContexts v <- getCurrentContexts