summaryrefslogtreecommitdiff
path: root/Assistant/Threads/XMPPClient.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-03-15 17:52:41 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-03-15 17:52:41 -0400
commit77e43ec65fff0aaaa1e08caffeb654971aee0b36 (patch)
tree4f09745fe8b3433293dd78eb74c5abf9f3154e10 /Assistant/Threads/XMPPClient.hs
parente41db4a717f8e92c2c33704196f43224ae6a5ec8 (diff)
webapp: Display an alert when there are XMPP remotes, and a cloud transfer repository needs to be configured.
Diffstat (limited to 'Assistant/Threads/XMPPClient.hs')
-rw-r--r--Assistant/Threads/XMPPClient.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/XMPPClient.hs b/Assistant/Threads/XMPPClient.hs
index fb7da10c7..69a886c4a 100644
--- a/Assistant/Threads/XMPPClient.hs
+++ b/Assistant/Threads/XMPPClient.hs
@@ -111,7 +111,7 @@ xmppClient urlrenderer d creds =
handle _ (GotNetMessage m@(Pushing _ pushstage))
| isPushInitiation pushstage = inAssistant $
unlessM (queueNetPushMessage m) $
- void $ forkIO <~> handlePushInitiation m
+ void $ forkIO <~> handlePushInitiation urlrenderer m
| otherwise = void $ inAssistant $ queueNetPushMessage m
handle _ (Ignorable _) = noop
handle _ (Unknown _) = noop