diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-02 09:20:21 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-02 09:20:21 -0400 |
| commit | d2b48cacdbb192e7501985e93e60b64fa57fa72d (patch) | |
| tree | d88ee924b6f9a9ac7f1b93d7c44629447b3ae4bd /Assistant/Alert.hs | |
| parent | 1f2127c520b48e35a5fb335c9e711559733dfd23 (diff) | |
add some strictness annotations
on general principles
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 |