~singpolyma/cheogram

f7b764842d5bc7a276187379a05b37d259a24ce8 — Stephen Paul Weber 6 months ago 1f965c2
Remove chattiest low-value log
1 files changed, 0 insertions(+), 1 deletions(-)

M Main.hs
M Main.hs => Main.hs +0 -1
@@ 1534,7 1534,6 @@ rejoinManager db sendToComponent componentJid toRoomPresences toRejoinManager =
		presenceKeys <- TC.runTCM $ TC.fwmkeys db "presence\0" maxBound
		(next =<<) $! (\x -> foldM x state (presenceKeys :: [String])) $ \state pkey -> do
			let Just muc = parseJID =<< T.stripPrefix (fromString "presence\0") (T.pack pkey)
			log "go state CheckPings" $ fromString "Checking (ping?) participants in " <> formatJID muc <> fromString "..."
			presences <- fmap (mapMaybe (ourJids muc) . fromMaybe [] . (readZ =<<)) (TC.runTCM $ TC.get db pkey)
			(\x -> foldM x state presences) $ \state (mucJid, cheoJid) ->
				case Map.lookup mucJid state of