diff -r fa8324ed4702 -r 90fe753b3654 gameServer/OfficialServer/extdbinterface.hs --- a/gameServer/OfficialServer/extdbinterface.hs Sat Aug 24 13:33:34 2013 +0200 +++ b/gameServer/OfficialServer/extdbinterface.hs Sat Aug 24 10:07:34 2013 +0400 @@ -60,6 +60,7 @@ parseStats :: B.ByteString -> [(B.ByteString, B.ByteString)] -> [B.ByteString] -> [[SqlValue]] parseStats fileName teams = ps where + ps [] = [] ps ("DRAW" : bs) = ps bs ps ("WINNERS" : n : bs) = ps $ drop (readInt_ n) bs ps ("ACHIEVEMENT" : typ : teamname : location : value : bs) = @@ -69,6 +70,8 @@ , SqlByteString fileName , SqlByteString location ] : ps bs + ps (b:bs) = ps bs + dbConnectionLoop mySQLConnectionInfo = Control.Exception.handle (\(e :: IOException) -> hPutStrLn stderr $ show e) $ handleSqlError $