diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-07-28 21:21:22 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-07-28 21:21:22 -0400 |
| commit | 6a9abf652612af149be806ba8055879141929475 (patch) | |
| tree | 71e3b185f3a82f3e9c3eb23cb30d921e28c568ab /Utility/NotificationBroadcaster.hs | |
| parent | 5be5cb219f1d277fbc7c8b0a33a9012fcd219a00 (diff) | |
add NotificationID to StatusR, and use it to block
Diffstat (limited to 'Utility/NotificationBroadcaster.hs')
| -rw-r--r-- | Utility/NotificationBroadcaster.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Utility/NotificationBroadcaster.hs b/Utility/NotificationBroadcaster.hs index c811152ff..accc35fe1 100644 --- a/Utility/NotificationBroadcaster.hs +++ b/Utility/NotificationBroadcaster.hs @@ -32,10 +32,7 @@ import Control.Concurrent.SampleVar type NotificationBroadcaster = TMVar [SampleVar ()] newtype NotificationId = NotificationId Int - deriving (Read, Eq, Ord) - -instance Show NotificationId where - show (NotificationId i) = show i + deriving (Read, Show, Eq, Ord) {- Handle given out to an individual client. -} data NotificationHandle = NotificationHandle NotificationBroadcaster NotificationId |