Stats verbosity
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 23:24:13 +0000 (23:24 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 23:24:13 +0000 (23:24 +0000)
Partty.hs

index 56f4432..189d7b5 100644 (file)
--- a/Partty.hs
+++ b/Partty.hs
@@ -441,9 +441,14 @@ statsMain file = do
        hPutStrLn h $ unwords ["login", username, password]
        InternalMessage (PlayerJoined myName) <- parseIncomingMessage `liftM` hGetLine h
 
+
        lastStats <- readFile file
        when (lastStats == lastStats) $ return ()
+
+       putStrLn $ "Read " ++ show (length lastStats) ++ " old stat games"
        
+       putStrLn "Starting to collect stats..."
+
        let dummyState = ParttyState
                { psMyName      = "0"
                , psLoginName   = username