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

View file

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