diff options
Diffstat (limited to 'Assistant/Alert/Utility.hs')
| -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 |