Stats verbosity
[darcs-mirror-haskell-partty.git] / 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