diff options
author | 2012-11-03 14:16:17 -0400 | |
---|---|---|
committer | 2012-11-03 14:16:17 -0400 | |
commit | 1279d72b4e4fe77abb983954dc937021559d4169 (patch) | |
tree | 6c7d718be97634ddaaa2a9dd90637363cc0ebeb0 /Assistant/Types/Pushes.hs | |
parent | 85eb13a57a7c0c4f2df46ab4c01c434585370999 (diff) |
refactor XMPP client
Diffstat (limited to 'Assistant/Types/Pushes.hs')
-rw-r--r-- | Assistant/Types/Pushes.hs | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/Assistant/Types/Pushes.hs b/Assistant/Types/Pushes.hs index 85362860a..99e0ee162 100644 --- a/Assistant/Types/Pushes.hs +++ b/Assistant/Types/Pushes.hs @@ -8,10 +8,8 @@ module Assistant.Types.Pushes where import Common.Annex -import Utility.TSet import Control.Concurrent.STM -import Control.Concurrent.MSampleVar import Data.Time.Clock import qualified Data.Map as M @@ -19,24 +17,8 @@ import qualified Data.Map as M type PushMap = M.Map Remote UTCTime type FailedPushMap = TMVar PushMap -{- The TSet is recent, successful pushes that other remotes should be - - notified about. - - - - The MSampleVar is written to when the PushNotifier thread should be - - restarted for some reason. - -} -data PushNotifier = PushNotifier - { pushNotifierSuccesses :: TSet UUID - , pushNotifierWaiter :: MSampleVar () - } - {- The TMVar starts empty, and is left empty when there are no - failed pushes. This way we can block until there are some failed pushes. -} newFailedPushMap :: IO FailedPushMap newFailedPushMap = atomically newEmptyTMVar - -newPushNotifier :: IO PushNotifier -newPushNotifier = PushNotifier - <$> newTSet - <*> newEmptySV |