diff options
| -rw-r--r-- | Assistant/Threads/PushNotifier.hs | 5 |
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) |