--- a/gameServer/CoreTypes.hs	Tue Jun 28 01:05:33 2011 +0200
+++ b/gameServer/CoreTypes.hs	Wed Jun 29 21:52:07 2011 +0200
@@ -136,14 +136,14 @@
         dbHost :: String,
         dbLogin :: String,
         dbPassword :: String,
-        lastLogins :: [(String, UTCTime)],
+        lastLogins :: [(String, (UTCTime, String))],
         stats :: TMVar StatisticsInfo,
         coreChan :: Chan CoreMessage,
         dbQueries :: Chan DBQuery
     }
 
 instance Show ServerInfo where
-    show si = "Server Info"
+    show _ = "Server Info"
 
 newServerInfo = (
     ServerInfo