Use mapM_ instead of sequence_ and <$>
This commit is contained in:
parent
26b949b9b0
commit
7deb7e853b
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue