From 0485a0b5a7b63641d352b40bdda2037377d30b15 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 24 Oct 2012 19:09:02 -0400 Subject: add a separate field for the JID --- Assistant/Threads/PushNotifier.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Assistant/Threads/PushNotifier.hs') diff --git a/Assistant/Threads/PushNotifier.hs b/Assistant/Threads/PushNotifier.hs index 39072b85e..82638b804 100644 --- a/Assistant/Threads/PushNotifier.hs +++ b/Assistant/Threads/PushNotifier.hs @@ -33,7 +33,7 @@ pushNotifierThread st dstatus pushnotifier = NamedThread thisThread $ do v <- runThreadState st $ getXMPPCreds case v of Nothing -> nocreds - Just c -> case parseJID (xmppUsername c) of + Just c -> case parseJID (xmppJID c) of Nothing -> nocreds Just jid -> void $ client c jid where @@ -75,6 +75,9 @@ data XMPPCreds = XMPPCreds , xmppPassword :: T.Text , xmppHostname :: HostName , xmppPort :: Int + {- Something like username@hostname, but not necessarily the same + - username or hostname used to connect to the server. -} + , xmppJID :: T.Text } deriving (Read, Show) -- cgit v1.2.3