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

add some strictness annotations

Browse source 
on general principles
This commit is contained in:
Joey Hess 2012-08-02 09:20:21 -04:00
parent 1f2127c520
commit d2b48cacdb
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/Alert.hs
View file

@ -5,7 +5,7 @@
- Licensed under the GNU GPL version 3 or higher. - Licensed under the GNU GPL version 3 or higher.
-} -}
{-# LANGUAGE RankNTypes #-} {-# LANGUAGE RankNTypes, BangPatterns #-}
module Assistant.Alert where module Assistant.Alert where
@ -272,5 +272,5 @@ messageCombiner combinemessage = Just go
| alertName new == alertName old = | alertName new == alertName old =
case combinemessage (alertMessage new) (alertMessage old) of case combinemessage (alertMessage new) (alertMessage old) of
Nothing -> Nothing Nothing -> Nothing
Just m -> Just $ old { alertMessage = m } Just !m -> Just $! old { alertMessage = m }
| otherwise = Nothing | otherwise = Nothing