diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-03-09 14:08:45 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-09 14:08:45 -0400 |
| commit | 893bb509cdde7974fcc758dd6396ebc42230b698 (patch) | |
| tree | b0c7388dc4827c96d536ef6f9ff365b731d51656 /Assistant | |
| parent | 57f613cc8e9961af50ccf8bc59799a537fa7336a (diff) | |
use Monoid instance for Ordering
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/Alert/Utility.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Assistant/Alert/Utility.hs b/Assistant/Alert/Utility.hs index db2ea1925..73843be4c 100644 --- a/Assistant/Alert/Utility.hs +++ b/Assistant/Alert/Utility.hs @@ -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 |