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

add derives needed for use with Yesod, and fix a bug

Browse source
This commit is contained in:
Joey Hess 2012-07-28 21:11:40 -04:00
parent 109dc122da
commit 5be5cb219f
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Utility/NotificationBroadcaster.hs
View file

@ -14,6 +14,7 @@
module Utility.NotificationBroadcaster (
NotificationBroadcaster,
NotificationHandle,
NotificationId,
newNotificationBroadcaster,
newNotificationHandle,
notificationHandleToId,
@ -31,6 +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
@ -39,7 +41,7 @@ instance Show NotificationId where
data NotificationHandle = NotificationHandle NotificationBroadcaster NotificationId
newNotificationBroadcaster :: IO NotificationBroadcaster
newNotificationBroadcaster = atomically (newTMVar [])
newNotificationBroadcaster = atomically $ newTMVar []
{- Allocates a notification handle for a client to use. -}
newNotificationHandle :: NotificationBroadcaster -> IO NotificationHandle
@ -50,7 +52,7 @@ newNotificationHandle b = NotificationHandle
addclient = do
s <- newEmptySampleVar
atomically $ do
l <- readTMVar b
l <- takeTMVar b
putTMVar b $ l ++ [s]
return $ NotificationId $ length l