netserver/HWProto.hs
author unc0rr
Wed, 30 Apr 2008 19:44:54 +0000
changeset 890 1d8c4a5ec622
child 891 701f86df9b4c
permissions -rw-r--r--
- Improve server core - Protocol in separate module
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
890
1d8c4a5ec622 - Improve server core
unc0rr
parents:
diff changeset
     1
module HWProto where
1d8c4a5ec622 - Improve server core
unc0rr
parents:
diff changeset
     2
1d8c4a5ec622 - Improve server core
unc0rr
parents:
diff changeset
     3
import IO
1d8c4a5ec622 - Improve server core
unc0rr
parents:
diff changeset
     4
import Miscutils
1d8c4a5ec622 - Improve server core
unc0rr
parents:
diff changeset
     5
1d8c4a5ec622 - Improve server core
unc0rr
parents:
diff changeset
     6
handleCmd :: ClientInfo -> [ClientInfo] -> [RoomInfo] -> String -> (Bool, Bool, [String])
1d8c4a5ec622 - Improve server core
unc0rr
parents:
diff changeset
     7
handleCmd _ _ _ ('Q':'U':'I':'T':xs) = (True, False, [])