Use sortOn instead of sortBy and comparing

This commit is contained in:
Joseph C. Sible 2020-02-01 22:50:18 -05:00
parent 28978a8b65
commit 5487b3f229
1 changed files with 1 additions and 1 deletions

View File

@ -104,7 +104,7 @@ checkScript sys spec = do
code = cCode (pcComment pc) code = cCode (pcComment pc)
severity = cSeverity (pcComment pc) severity = cSeverity (pcComment pc)
sortMessages = sortBy (comparing order) sortMessages = sortOn order
order pc = order pc =
let pos = pcStartPos pc let pos = pcStartPos pc
comment = pcComment pc in comment = pcComment pc in