recv'event'connection :: Server -> MVar (Maybe Client) -> IO Server
recv'event'connection serv@Server{..} mv = do
 putStrLn $ "recv'event'connection"
 case (_connections >= _maxConnections) of
  False -> recv'event'connection'ok serv mv
  True-> recv'event'connection'fail serv mv
recv'event'connection :: Server -> MVar (Maybe Client) -> IO Server
recv'event'connection serv@Server{..} mv = do
 putStrLn $ "recv'event'connection"
 case (_connections >= _maxConnections) of
  False -> recv'event'connection'ok serv mv
  True-> recv'event'connection'fail serv mv
recv'event'connection serv@Server{..} mv = do
 putStrLn $ "recv'event'connection"
 case (_connections >= _maxConnections) of
  False -> recv'event'connection'ok serv mv
  True-> recv'event'connection'fail serv mv