From 2ffb6c83c964882e0e0c37b898b6df3562cc6803 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Sat, 10 Dec 2016 09:38:50 -0500 Subject: [PATCH] Use log everywhere --- Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Main.hs b/Main.hs index 9fe99f5..311ecf8 100644 --- a/Main.hs +++ b/Main.hs @@ -1117,7 +1117,7 @@ rejoinManager db toComponent componentHost 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) - putStrLn $ fromString "Checking (ping?) participants in " <> formatJID muc <> fromString "..." + 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 ((let Just x = parseJID (fromString "woo@conference.singpolyma.net/000") in x, fromString "000"):presences)) $ \state (mucJid, tel) -> case Map.lookup mucJid state of @@ -1265,7 +1265,7 @@ main = do hSetBuffering stdout LineBuffering hSetBuffering stderr LineBuffering - putStrLn $ fromString "Starting..." + log "" "Starting..." (name:host:port:secret:vitelityJid:vitelityPassword:conferences) <- getArgs db <- openTokyoCabinet "./db.tcdb" :: IO TC.HDB chunks <- atomically newTChan -- 2.38.5