From f7b764842d5bc7a276187379a05b37d259a24ce8 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Thu, 9 Jan 2020 20:57:58 -0500 Subject: [PATCH] Remove chattiest low-value log --- Main.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/Main.hs b/Main.hs index e9a9f83..0db28e9 100644 --- a/Main.hs +++ b/Main.hs @@ -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 -- 2.45.2