Use mapM_ and sequence_ instead of reimplementing them

This commit is contained in:
Joseph C. Sible 2020-02-09 19:53:18 -05:00
parent cc424bac11
commit ffbbfcfe25
4 changed files with 10 additions and 12 deletions

View file

@ -586,7 +586,7 @@ readConditionContents single =
return $ TC_Nullary id typ x
)
checkTrailingOp x = fromMaybe (return ()) $ do
checkTrailingOp x = sequence_ $ do
(T_Literal id str) <- getTrailingUnquotedLiteral x
trailingOp <- find (`isSuffixOf` str) binaryTestOps
return $ parseProblemAtId id ErrorC 1108 $