--- a/netserver/newhwserv.hs	Mon Sep 29 22:14:23 2008 +0000
+++ b/netserver/newhwserv.hs	Sun Oct 05 16:35:46 2008 +0000
@@ -42,9 +42,9 @@
 		Left ci -> do
 			mainLoop servSock acceptChan (ci:clients) rooms
 		Right (cmd, client) -> do
-			print ("> " ++ show cmd)
+			putStrLn ("> " ++ show cmd)
 			let (clientsFunc, roomsFunc, handlesFunc, answer) = handleCmd client clients rooms $ cmd
-			print ("< " ++ show answer)
+			putStrLn ("< " ++ show answer)
 
 			let mclients = clientsFunc clients
 			let mrooms = roomsFunc rooms