--- a/netserver/Miscutils.hs	Wed Nov 05 08:02:12 2008 +0000
+++ b/netserver/Miscutils.hs	Fri Nov 07 15:58:36 2008 +0000
@@ -7,12 +7,15 @@
 import Data.List
 import Maybe (fromJust)
 import qualified Data.Map as Map
+import Data.Time
 
 data ClientInfo =
  ClientInfo
 	{
 		chan :: TChan [String],
 		handle :: Handle,
+		host :: String,
+		connectTime :: UTCTime,
 		nick :: String,
 		protocol :: Word16,
 		room :: String,