send'event'debug :: Server -> IO ()
send'event'debug serv = do
 mv <- newEmptyMVar
 putMVar (_mv serv) $ Debug mv
 msg <- takeMVar mv
 putStrLn $ "debug info: " ++ msg
 return ()
send'event'debug :: Server -> IO ()
send'event'debug serv = do
 mv <- newEmptyMVar
 putMVar (_mv serv) $ Debug mv
 msg <- takeMVar mv
 putStrLn $ "debug info: " ++ msg
 return ()
send'event'debug serv = do
 mv <- newEmptyMVar
 putMVar (_mv serv) $ Debug mv
 msg <- takeMVar mv
 putStrLn $ "debug info: " ++ msg
 return ()