deliverMessage :: Server -> ID -> String -> IO ()
deliverMessage serv id' s = do
 putMVar (_mv serv) Init
 return ()
deliverMessage :: Server -> ID -> String -> IO ()
deliverMessage serv id' s = do
 putMVar (_mv serv) Init
 return ()
deliverMessage serv id' s = do
 putMVar (_mv serv) Init
 return ()