From bfd3ab8832d3d9138a6e6fb9172553c877a2a4d4 Mon Sep 17 00:00:00 2001
From: Stephen Paul Weber <singpolyma@singpolyma.net>
Date: Sat, 28 Nov 2015 15:21:59 -0500
Subject: [PATCH] remove more debug stuff

---
 Main.hs | 2 --
 1 file changed, 2 deletions(-)

diff --git a/Main.hs b/Main.hs
index c4dc19a..72971d1 100644
--- a/Main.hs
+++ b/Main.hs
@@ -451,8 +451,6 @@ viteltiy db chunks toVitelity toComponent componentHost = do
 
 	forkXMPP $ forever $ flip catchError (liftIO . print) $ do
 		stanza <- liftIO $ atomically $ readTChan toVitelity
-		let b = listToMaybe . fmap (mconcat . elementText) . (isNamed (Name (fromString "body") (Just $ fromString "jabber:client") Nothing) <=< elementChildren) $ stanzaToElement stanza
-		liftIO $ print (stanzaTo stanza, b)
 		putStanza $ stanza
 		wait <- liftIO $ getStdRandom (randomR (400000,1500000))
 		liftIO $ threadDelay wait
-- 
2.38.4