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 $
 iqresponse session host (Elem _ attrs content) = runMaybeT $ do
     id <- MaybeT . return $ fmap pack (lookup (N "id") attrs >>= unattr) 
     typ <- MaybeT . return $ fmap pack (lookup (N "type") attrs >>= unattr)
-    host <- fmap server $ getJID session
     case typ of
       "set" -> do
         let string (CString _ s _) = [s]