Use mapM_ instead of reimplementing it
This commit is contained in:
parent
0607039d41
commit
cb4f4e7edc
|
@ -3808,7 +3808,7 @@ checkAliasUsedInSameParsingUnit params root =
|
||||||
-- Group them by whether they start on the same line where the previous one ended
|
-- Group them by whether they start on the same line where the previous one ended
|
||||||
units = groupByLink followsOnLine commands
|
units = groupByLink followsOnLine commands
|
||||||
in
|
in
|
||||||
execWriter $ sequence_ $ map checkUnit units
|
execWriter $ mapM_ checkUnit units
|
||||||
where
|
where
|
||||||
lineSpan t =
|
lineSpan t =
|
||||||
let m = tokenPositions params in do
|
let m = tokenPositions params in do
|
||||||
|
|
Loading…
Reference in New Issue