Use mapM_ instead of sequence_ and <$>

This commit is contained in:
Joseph C. Sible 2024-12-13 23:47:55 -05:00
parent 26b949b9b0
commit 7deb7e853b
1 changed files with 1 additions and 1 deletions

View File

@ -78,7 +78,7 @@ controlFlowEffectChecks = [
runNodeChecks :: [ControlFlowNodeCheck] -> ControlFlowCheck runNodeChecks :: [ControlFlowNodeCheck] -> ControlFlowCheck
runNodeChecks perNode = do runNodeChecks perNode = do
cfg <- asks cfgAnalysis cfg <- asks cfgAnalysis
sequence_ $ runOnAll <$> cfg mapM_ runOnAll cfg
where where
getData datas n@(node, label) = do getData datas n@(node, label) = do
(pre, post) <- M.lookup node datas (pre, post) <- M.lookup node datas