diff options
| -rw-r--r-- | Presence/XMPPServer.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs index 6c0b609e..7e42c7ae 100644 --- a/Presence/XMPPServer.hs +++ b/Presence/XMPPServer.hs | |||
| @@ -219,7 +219,6 @@ iqresult_info host id mjid = L.unlines $ | |||
| 219 | iqresponse session host (Elem _ attrs content) = runMaybeT $ do | 219 | iqresponse session host (Elem _ attrs content) = runMaybeT $ do |
| 220 | id <- MaybeT . return $ fmap pack (lookup (N "id") attrs >>= unattr) | 220 | id <- MaybeT . return $ fmap pack (lookup (N "id") attrs >>= unattr) |
| 221 | typ <- MaybeT . return $ fmap pack (lookup (N "type") attrs >>= unattr) | 221 | typ <- MaybeT . return $ fmap pack (lookup (N "type") attrs >>= unattr) |
| 222 | host <- fmap server $ getJID session | ||
| 223 | case typ of | 222 | case typ of |
| 224 | "set" -> do | 223 | "set" -> do |
| 225 | let string (CString _ s _) = [s] | 224 | let string (CString _ s _) = [s] |