94         else

    94         else

    95         clientSendLoop s tId chan ci

    95         clientSendLoop s tId chan ci

    96 

    96 

    97     where

    97     where

    98         killReciever = Exception.throwTo tId . ShutdownThreadException

    98         killReciever = Exception.throwTo tId . ShutdownThreadException

    99         quitMessage ["BYE"] = "bye"

   100         quitMessage ["BYE"] = "bye"

   100         quitMessage ("BYE":msg:_) = msg

   101         quitMessage ("BYE":msg:_) = msg

   101         quitMessage _ = error "quitMessage"

   102         quitMessage _ = error "quitMessage"

   102         isQuit ("BYE":_) = True

   103         isQuit ("BYE":_) = True

   103         isQuit _ = False

   104         isQuit _ = False