diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-29 16:28:45 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-29 16:28:45 -0400 |
| commit | da4fe399e3817dded3d414c99c9bc6b292661513 (patch) | |
| tree | aee705fc42ac018df7551d83ef5659f28c5e626a /Assistant/Threads | |
| parent | 9d4c809c68d168614d1a0e8ae4a18799fb6ea91f (diff) | |
more lifting
Diffstat (limited to 'Assistant/Threads')
| -rw-r--r-- | Assistant/Threads/PushNotifier.hs | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/Assistant/Threads/PushNotifier.hs b/Assistant/Threads/PushNotifier.hs index d19369b8d..17f966881 100644 --- a/Assistant/Threads/PushNotifier.hs +++ b/Assistant/Threads/PushNotifier.hs @@ -93,13 +93,12 @@ pull [] = noop pull us = do rs <- filter matching . syncRemotes <$> daemonStatus debug $ "push notification for" : map (fromUUID . Remote.uuid ) rs - st <- getAssistant threadState - liftIO . pullone st rs =<< liftAnnex (inRepo Git.Branch.current) + pullone rs =<< liftAnnex (inRepo Git.Branch.current) where matching r = Remote.uuid r `S.member` s s = S.fromList us - pullone _ [] _ = noop - pullone st (r:rs) branch = - unlessM (all id . fst <$> manualPull st branch [r]) $ - pullone st rs branch + pullone [] _ = noop + pullone (r:rs) branch = + unlessM (all id . fst <$> manualPull branch [r]) $ + pullone rs branch |