Use sortOn instead of sortBy and comparing
This commit is contained in:
parent
28978a8b65
commit
5487b3f229
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue