mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use Monoid instance for Ordering

Browse source
This commit is contained in:
Joey Hess 2014-03-09 14:08:45 -04:00
parent a7dffcbd7a
commit 5a37266080
2 changed files with 3 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Assistant/Alert/Utility.hs
View file

@ -14,6 +14,7 @@ import Utility.Tense
import qualified Data.Text as T
import Data.Text (Text)
import qualified Data.Map as M
import Data.Monoid
{- This is as many alerts as it makes sense to display at a time.
- A display might be smaller, or larger, the point is to not overwhelm the
@ -43,8 +44,8 @@ compareAlertPairs
(aid, Alert { alertClass = aclass, alertPriority = aprio })
(bid, Alert { alertClass = bclass, alertPriority = bprio })
= compare aprio bprio
`thenOrd` compare aid bid
`thenOrd` compare aclass bclass
`mappend` compare aid bid
`mappend` compare aclass bclass
sortAlertPairs :: [AlertPair] -> [AlertPair]
sortAlertPairs = sortBy compareAlertPairs