recv'event'connection'fail :: Server -> MVar (Maybe Client) -> IO Server
recv'event'connection'fail serv mv = do
 putMVar mv Nothing
 return serv
recv'event'connection'fail :: Server -> MVar (Maybe Client) -> IO Server
recv'event'connection'fail serv mv = do
 putMVar mv Nothing
 return serv
recv'event'connection'fail serv mv = do
 putMVar mv Nothing
 return serv