~singpolyma/cheogram

bfd3ab8832d3d9138a6e6fb9172553c877a2a4d4 — Stephen Paul Weber 7 years ago 54b4007
remove more debug stuff
1 files changed, 0 insertions(+), 2 deletions(-)

M Main.hs
M Main.hs => Main.hs +0 -2
@@ 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