--- a/gameServer/NetRoutines.hs	Mon Mar 23 21:09:34 2009 +0000
+++ b/gameServer/NetRoutines.hs	Thu Mar 26 13:54:02 2009 +0000
@@ -12,10 +12,7 @@
 -----------------------------
 import CoreTypes
 import ClientIO
-
-sockAddr2String :: SockAddr -> IO String
-sockAddr2String (SockAddrInet _ hostAddr) = inet_ntoa hostAddr
-sockAddr2String (SockAddrInet6 _ _ (a, b, c, d) _) = return (foldr1 (\a b -> a ++ ":" ++ b) [show a, show b, show c, show d])
+import Utils
 
 acceptLoop :: Socket -> Chan CoreMessage -> Int -> IO ()
 acceptLoop servSock coreChan clientCounter = do