1
module HWProto where
2
3
import IO
4
import Miscutils
5
6
handleCmd :: ClientInfo -> [ClientInfo] -> [RoomInfo] -> String -> (Bool, Bool, [String])
7
handleCmd _ _ _ ('Q':'U':'I':'T':xs) = (True, False, [])