Swap SC1041 and SC1042 for better sort order.

This commit is contained in:
Vidar Holen 2017-07-08 15:21:58 -07:00
parent aa33280cb0
commit 79ae89076a
1 changed files with 2 additions and 2 deletions

View File

@ -1701,9 +1701,9 @@ readPendingHereDocs = do
debugHereDoc pos endToken doc debugHereDoc pos endToken doc
| endToken `isInfixOf` doc = | endToken `isInfixOf` doc =
let lookAt line = when (endToken `isInfixOf` line) $ let lookAt line = when (endToken `isInfixOf` line) $
parseProblemAt pos ErrorC 1041 ("Close matches include '" ++ line ++ "' (!= '" ++ endToken ++ "').") parseProblemAt pos ErrorC 1042 ("Close matches include '" ++ line ++ "' (!= '" ++ endToken ++ "').")
in do in do
parseProblemAt pos ErrorC 1042 ("Found '" ++ endToken ++ "' further down, but not on a separate line.") parseProblemAt pos ErrorC 1041 ("Found '" ++ endToken ++ "' further down, but not on a separate line.")
mapM_ lookAt (lines doc) mapM_ lookAt (lines doc)
| map toLower endToken `isInfixOf` map toLower doc = | map toLower endToken `isInfixOf` map toLower doc =
parseProblemAt pos ErrorC 1043 ("Found " ++ endToken ++ " further down, but with wrong casing.") parseProblemAt pos ErrorC 1043 ("Found " ++ endToken ++ " further down, but with wrong casing.")