send'event'disconnect :: Server -> ID -> IO ()
send'event'disconnect serv id' = do
 putMVar (_mv serv) $ Disconnect id'
 putStrLn $ "disconnect: " ++ show id'
 return ()
send'event'disconnect :: Server -> ID -> IO ()
send'event'disconnect serv id' = do
 putMVar (_mv serv) $ Disconnect id'
 putStrLn $ "disconnect: " ++ show id'
 return ()
send'event'disconnect serv id' = do
 putMVar (_mv serv) $ Disconnect id'
 putStrLn $ "disconnect: " ++ show id'
 return ()