From 2e72fc27f26fc75cd236701b220f4e2bfaf686c1 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Wed, 19 Jun 2013 20:53:19 -0400
Subject: oops

---
 Presence/XMPPServer.hs | 1 -
 1 file changed, 1 deletion(-)

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]
-- 
cgit v1.2.3