add a separate field for the JID

1 files changed, 4 insertions, 1 deletions

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)