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, [])