discard bad hostnames in sendProbes

1 files changed, 5 insertions, 2 deletions

diff --git a/Presence/main.hs b/Presence/main.hs
index 7a319630..fa4a98c1 100644
--- a/Presence/main.hs
+++ b/Presence/main.hs
@@ -35,7 +35,7 @@ import XMPP
 #endif
 import ControlMaybe
 import Data.HList
-import Control.Exception
+import Control.Exception hiding (catch)
 import LocalPeerCred
 import System.Posix.User
 import qualified Data.Set as Set
@@ -234,9 +234,12 @@ newPresenceState hostname = atomically $ do
 
 sendProbes state jid = do
     withJust (name jid) $ \user -> do
+    let parseHostNameJID' str = do
+            handle (\(SomeException _) -> return Nothing)
+                   (fmap Just . parseHostNameJID $ str)
     buddies <- do
         buddies <- ConfigFiles.getBuddies user
-        mapM parseHostNameJID buddies
+        fmap catMaybes (mapM parseHostNameJID' buddies)
     remotes <- readTVarIO (remoteUsers state)
     forM_ buddies $ \buddy -> do
         let mjids = fmap snd $ Map.lookup (peer buddy) remotes