Oops, fixed namespaces on Offline notifications

1 files changed, 3 insertions, 3 deletions

diff --git a/xmppServer.hs b/xmppServer.hs
index 699c6a7a..63420076 100644
--- a/xmppServer.hs
+++ b/xmppServer.hs
@@ -296,7 +296,7 @@ eofConn state k = do
     atomically $ modifyTVar' (keyToChan state) $ Map.delete k
     case k of
         ClientKey {} -> do
-            stanza <- makePresenceStanza "{jabber:server}" Nothing Offline
+            stanza <- makePresenceStanza "jabber:server" Nothing Offline
             informClientPresence state k stanza
         PeerKey {} -> do
             let h = peerKeyToText k
@@ -308,7 +308,7 @@ eofConn state k = do
                     r <- Map.keys (resources rp)
                     return $ unsplitJID (Just u, h, Just r)
             forM_ jids $ \jid -> do
-            stanza <- makePresenceStanza "{jabber:client}" (Just jid) Offline
+            stanza <- makePresenceStanza "jabber:client" (Just jid) Offline
             informPeerPresence state k stanza
 
 {-
@@ -548,7 +548,7 @@ answerProbe state k stanza chan = do
     -- if no presence, send offline message
     when (null replies) $ do
         let jid = unsplitJID (Just u,ch,Nothing)
-        pstanza <- makePresenceStanza "{jabber:server}" (Just jid) Offline
+        pstanza <- makePresenceStanza "jabber:server" (Just jid) Offline
         atomically $ writeTChan (connChan conn) pstanza
 
 main = runResourceT $ do