changeset 1478 | 8bfb417d165e |
parent 1466 | c68b0a0969d3 |
child 1484 | c01512115c12 |
--- 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,