diff options
author | 2012-10-30 14:44:18 -0400 | |
---|---|---|
committer | 2012-10-30 14:44:18 -0400 | |
commit | bab7e83221468905b76e28bb123ebe26e146b97b (patch) | |
tree | 19b3bf6d56f936a81c09be7b552c3a8616d45e27 /Assistant/Threads/Pusher.hs | |
parent | ca03b7fef80cf97e89cd785ec8393a27d5328d99 (diff) |
cleanup daemonStatus accessors
Diffstat (limited to 'Assistant/Threads/Pusher.hs')
-rw-r--r-- | Assistant/Threads/Pusher.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/Pusher.hs b/Assistant/Threads/Pusher.hs index 905cf81db..ac65ca14c 100644 --- a/Assistant/Threads/Pusher.hs +++ b/Assistant/Threads/Pusher.hs @@ -46,7 +46,7 @@ pushThread = NamedThread "Pusher" $ runEvery (Seconds 2) <~> do -- Now see if now's a good time to push. if shouldPush commits then do - remotes <- filter pushable . syncRemotes <$> daemonStatus + remotes <- filter pushable . syncRemotes <$> getDaemonStatus unless (null remotes) $ void $ alertWhile (pushAlert remotes) $ do now <- liftIO $ getCurrentTime |