Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
netserver/HWProto.hs
changeset 892 dfe97199f17e
parent 891 701f86df9b4c
child 893 149244d86bf1 
--- a/netserver/HWProto.hs	Wed Apr 30 20:14:09 2008 +0000
+++ b/netserver/HWProto.hs	Wed Apr 30 20:18:30 2008 +0000
@@ -3,12 +3,12 @@
 import IO
 import Miscutils
 
-handleCmd :: ClientInfo -> [ClientInfo] -> [RoomInfo] -> [String] -> (Bool, [ClientInfo], [String])
+handleCmd :: ClientInfo -> [ClientInfo] -> [RoomInfo] -> [String] -> ([ClientInfo], [String])
 
 handleCmd client clients _ ("QUIT":xs) =
 	if null (room client) then
-		(True, [client], ["QUIT"])
+		([client], ["QUIT"])
 	else
-		(True, clients, ["QUIT " ++ nick client])
+		(clients, ["QUIT", nick client])
 
-handleCmd client _ _ _ = (False, [client], ["Bad command"])
+handleCmd client _ _ _ = ([client], ["Bad command"])
hedgewars