diff options
| author | joe <joe@jerkface.net> | 2013-06-19 20:53:19 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2013-06-19 20:53:19 -0400 |
| commit | 2e72fc27f26fc75cd236701b220f4e2bfaf686c1 (patch) | |
| tree | 02881196fa7b6b1340b14fec66e4143c947affc6 /Presence/XMPPServer.hs | |
| parent | dbcf30d5239043eafa1282caa369c577130938e9 (diff) | |
oops
Diffstat (limited to 'Presence/XMPPServer.hs')
| -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] |