Swap SC1041 and SC1042 for better sort order.
This commit is contained in:
parent
aa33280cb0
commit
79ae89076a
|
@ -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.")
|
||||||
|
|
Loading…
Reference in New Issue