Use mapM_ instead of reimplementing it

This commit is contained in:
Joseph C. Sible 2020-12-28 17:34:52 -05:00
parent 0607039d41
commit cb4f4e7edc
1 changed files with 1 additions and 1 deletions

View File

@ -3808,7 +3808,7 @@ checkAliasUsedInSameParsingUnit params root =
-- Group them by whether they start on the same line where the previous one ended
units = groupByLink followsOnLine commands
in
execWriter $ sequence_ $ map checkUnit units
execWriter $ mapM_ checkUnit units
where
lineSpan t =
let m = tokenPositions params in do