Use sortOn instead of sortBy and comparing

2020-02-01 22:50:18 -05:00 · 2020-02-01 22:50:18 -05:00 · 5487b3f229
parent 28978a8b65
commit 5487b3f229
1 changed files with 1 additions and 1 deletions
--- a/src/ShellCheck/Checker.hs
+++ b/src/ShellCheck/Checker.hs
@ -104,7 +104,7 @@ checkScript sys spec = do
            code     = cCode (pcComment pc)
            severity = cSeverity (pcComment pc)

-    sortMessages = sortBy (comparing order)
+    sortMessages = sortOn order
    order pc =
        let pos = pcStartPos pc
            comment = pcComment pc in