diff options
Diffstat (limited to 'Assistant/Alert.hs')
| -rw-r--r-- | Assistant/Alert.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs index 6b32fde1d..b234d2a5a 100644 --- a/Assistant/Alert.hs +++ b/Assistant/Alert.hs @@ -5,7 +5,7 @@ - Licensed under the GNU GPL version 3 or higher. -} -{-# LANGUAGE RankNTypes #-} +{-# LANGUAGE RankNTypes, BangPatterns #-} module Assistant.Alert where @@ -272,5 +272,5 @@ messageCombiner combinemessage = Just go | alertName new == alertName old = case combinemessage (alertMessage new) (alertMessage old) of Nothing -> Nothing - Just m -> Just $ old { alertMessage = m } + Just !m -> Just $! old { alertMessage = m } | otherwise = Nothing |